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EXBCUTZVB  SDMMIAY 


This  report  summarizes  the  results  of  a  study  to  determine  the 
strengths  and  the  weakness  of  the  AC  potential  drop  technique  for 
measuring  multiple  site  crack  initiation  and  crack  propagation  in 
aluminum  aircraft  test  specimens.  This  technique  is  easily 
automated;  thus  long  term  multi-site  test  specimens  can  be  tested 
without  the  constant  stopping  of  the  test  by  an  operator  to 
visually  measxire  the  crack  sizes.  This  will  reduce  the  time  it 
takes  to  generate  multi-site  test  data,  improve  the  quality  of  the 
data,  and  reduce  the  cost  of  running  a  test. 

The  principles  of  the  AC  potential  drop  technique  are  that  a  high 
frequency  current  (3  to  100  kHz)  is  injected  into  the  specimen. 
The  current  field  is  confined  to  the  surface  of  the  specimen  by  the 
so  called  "skin  effect."  Because  of  the  skin  effect,  only  small 
currents  are  required  (generally  less  than  2  amps) .  The  potential 
is  measured  by  phase  sensitive  amplifiers  which  results  in  high 
sensitivity  and  the  ability  to  reject  noise.  The  current  field  is 
focussed  only  on  the  area  of  interest  to  improve  sensitivity. 

This  ACPD  technique  was  applied  to  test  specimens  under  fatigue 
cycling  conditions  as  well  as  static  R-curve  testing.  Aluminum 
ALCALO  2024  test  specimens  with  three  holes  and  those  with  a  row  of 
three  rivets  were  examined.  Optimum  current  and  potential  lead 
geometries  were  determined  for  each  specimen  geometry. 
Correlations  between  crack  length  and  potential  were  determined. 
It  was  found  that  a  simple  linear  relationship  between  the  measured 
potential  and  crack  length  existed  for  both  specimen  types.  The 
sensitivity  of  the  technique  for  measuring  crack  length  Increased 
with  increasing  current  frequencies  up  to  30  kHz.  The  sensitivity 
of  ACPD  at  30  kHz  was  32  nm/nV  for  the  three-hole  specimens  and  77 
/xm/MV  for  the  riveted  specimens.  The  ACPD  system  could  resolve  0.1 
mV.  Crack  initiation  experiments  showed  that  the  increase  in  AC 
potential  prior  to  finding  a  visible  crack  was  due  to  crack  growth. 
R-curve  tests  showed  that  the  AC  potential  was  not  affected  by  the 
large  scale  deformation  which  occurs  in  this  testing  mode.  Crack 
length  potential  relationships  determined  by  fatigue  testing  can  be 
used  to  predict  crack  length  from  the  AC  potential  in  an  R-curve 
test. 

In  applying  ACPD  to  the  measurement  of  multi-site  crack  gro%rth  it 
was  discovered  that  the  current  and  potential  leads  should  be 
separated  as  much  as  possible  and  the  leads  should  be  attached 
rigidly.  In  order  to  obtain  repeatable  crack  length  potential 
relationships  it  was  necessary  to  subtract  the  initial  AC  potential 
of  the  uncracked  hole  or  rivet.  This  initial  potential  was  found 
to  vary  widely  from  specimen  to  specimen.  This  problem  would  make 
the  technique  inapplicable  to  the  inspection  of  cracking  on 
aircraft,  yet  the  technique  is  still  a  very  useful  tool  for 
laboratory  testing. 
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1.  XHTRODUCTZON 


The  characterization  of  multiple  site  damage  by  use  of  laboratory 
test  specimens  is  an  important  precursor  to  the  understanding  of 
multiple  site  damage  in  aging  aircraft.  As  the  number  of  damage 
sites  in  the  laboratory  specimen  increases,  it  becomes  more  time 
consvuning  to  measure  crack  initiation  and  growth  from  the  various 
sites.  Typically  the  crack  initiation  and  crack  growth  would  be 
measured  either  visually  or  with  a  low  power  microscope.  This 
technique  is  accurate,  but  it  is  very  labor  intensive. 

In  order  to  reduce  the  time  necessary  to  obtain  multiple  site 
crack  growth  rate  data,  an  automated  crack  length  measuring 
technique  is  needed.  There  are  a  variety  of  possible  automated 
crack  length  techniques  available.  The  most  popular  are 
compliance,  DC  potential  drop,  and  AC  potential  drop.  The 
compliance  technique  relates  the  specimen's  normalized  compliance 
to  crack  length  by  a  complex  polynomial  relationship.  The 
accuracy  of  this  technique  decreases  as  the  specimen's  compliance 
decreases.  Aluminum  aircraft  panels  are  not  very  compliant; 
therefore  this  technique  would  not  be  able  to  accurately  measure 
crack  length.  Another  drawback  is  that  the  attachment  of 
displacement  gages  to  an  aircraft  panel  would  be  difficult.  For 
more  information  about  the  compliance  technique  the  reader  should 
consult  references  1  and  2. 

The  DC  potential  drop  technique  applies  a  constant  DC  current  to 
the  specimen  and  measures  the  resulting  potential.  The  potential 
increases  as  the  crack  grows.  The  magnitude  of  the  current 
necessary  to  produce  repeatable  and  accurate  potential  readings 
depends  upon  the  specimen  geometry,  size,  and  the  material's 
resistivity.  Materials  with  relatively  high  resistivity,  such  as 
alloy  steels,  require  currents  of  the  order  of  10  to  50  amps. 
Materials  with  low  resistivity,  such  as  aluminum  alloys,  r**.quire 
currents  of  the  order  of  50  to  250  amps.  Low  resistivity 
materials  require  such  high  current  densities  for  accurate 
potential  measurements  that  there  is  a  serious  problem  of 
specimen  heating.  The  DC  potential  drop  technique  is  not  very 
sensitive  to  crack  initiation  and  the  measurement  of  short 
cracks.  For  more  information  about  the  DC  potential  drop 
technique  the  reader  should  consult  references  3  and  4. 

The  AC  potential  drop  technique  applies  a  high  frequency  (3  to 
100  kHz)  current  to  the  specimen  and  measures  the  resulting 
potential.  ACPD  uses  phase  sensitive  detection  to  measure  the 
small  voltages  involved.  The  phase  sensitive  detection  Is 
responsible  for  the  high  sensitivity  and  ability  to  reject  most 
noise.  In  ACPD  the  high  current  frequencies  cause  the  current  to 
be  concentrated  on  the  surface  of  the  specimen,  and  it  is  this  so 
called  "skin  effect"  which  is  responsible  for  the  high 
sensitivity  and  low  currents  required  (1  amp).  The  skin 
thickness  (£)  can  be  calculated  by  the  following  equation. 
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Where: 

H  «  nagnetic  permeability 
o  *  electrical  conductivity 
f  ■  current  frequency 


The  skin  depth  for  an  alloy  steel  with  current  frequencies  of  3, 
10,  and  30  kHz  would  be  approximately  0.60,  0.15,  and  0.08  mm. 

The  skin  depth  for  an  aluminum  alloy  with  the  same  current 
frequencies  would  be  2.0,  1.0,  and  0.60  mm  respectively. 

With  the  ACPD  technique  it  is  possible  to  concentrate  the  current 
to  only  the  area  of  interest  by  routing  the  current  leads  in  a 
line  directly  above  the  area  of  interest;  this  is  the  so  called 
current  focusing  technique.  This  intensifies  the  current  field 
and  increases  the  sensitivity  of  the  technique.  A  possible 
problem  with  this  technique  is  that  the  potential  can  be  affected 
by  plastic  deformation.  Reference  5  discusses  this  problem  with 
alloy  steel.  The  reader  is  referred  to  reference  6  for  more 
detail  on  the  ACPD  technique. 

This  report  describes  the  benefits  and  problems  of  applying  ACPD 
to  aluminum  aircraft  panels.  Two  specimen  types,  multi-hole  and 
riveted  panels  were  studied.  Current  and  potential  lead  geometry 
was  experimented  with  to  obtain  high  sensitivity.  Duplicate 
specimens  were  zun  to  determine  repeatability  of  the  technique. 
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2.  BXPERZMZlfTAL  PROCBDDllE 


2.1  VKRDUKRE  8ETDP 

In  this  study  three  types  of  specimen  were  used.  The  specimen 
types  are  single  hole,  three  hole  and  riveted  panels.  Pictures 
of  these  three  specimens  are  shown  in  Figures  l  to  3.  The 
specimens  were  tested  with  an  Instron  8502  digital  servohydraulic 
test  machine.  The  crack  length  was  measured  visually  with  a 
Questar  QRMS-M  optical  microscope  system.  The  AC  potential 
measuring  equipment  consisted  of  a  Matelect  CGM5  ACPO  unit,  SCI 
scan  controller,  SCMl  8  channel  potential  scanner,  and  SCM2  8 
channel  current  scanner.  The  test  was  controlled  and  data  was 
collected  using  a  Compaq-386  computer.  A  special  program  was 
written  for  this  task.  The  details  of  the  program  will  be 
described  in  the  next  section.  A  picture  of  the  test  setup  is 
shown  in  Figure  4.  A  close-up  of  the  ACPD  equipment  is  shown  in 
Figure  5.  A  schematic  representation  of  the  system  and  the  data 
communication  connections  are  shown  in  Figure  6.  A  brief 
description  of  the  various  pieces  of  test  equipment  used  will  be 
given  below. 

The  Matelect  ACPD  system  is  a  multiple  frequency  AC  potential 
drop  crack  length  measuring  device.  The  available  frequencies 
are  0.3,  3.0,  10.0,  30.0,  and  100  kHz.  The  maximum  output 
current  is  2.0  amps.  The  voltage  is  measured  with  an  automatic 
phase  detection  circuit  with  gains  of  50,  60,  70,  80  and  90db. 

The  amplified  potential  may  be  read  from  the  4  1/2  digit  display, 
by  computer  with  an  RS-232  interface  or  from  an  analog  output. 

The  current  and  potentials  can  be  scanned  with  a  multiplexing 
arrangement.  The  multiplexing  devices  each  handle  8  channels. 

The  multiplexing  is  controlled  by  switches  on  the  SCI  scan 
controller  or  through  a  separate  RS-232  connection  on  the  SCI. 

The  Questar  QRMS-H  system  is  a  high  resolution  long  distance 
microscope.  The  system  consists  of  a  QM-100  microscope  with  a  1 
Mm  resolution,  an  instriimented  X-Y-Z  stage,  a  floor  stand,  CCD 
camera,  high  resolution  black  and  white  monitor,  video  cross 
hairs  and  a  fiber  optics  illumination  device.  The  X-Y-Z  stage 
has  a  digital  read-out  for  X  and  Y  position  and  has  a  resolution 
of  0.01  aun.  The  digital  meter  can  also  be  read  by  an  RS-232 
interface. 

The  Instron  8502  is  a  digital  servohydraulic  test  machine.  It 
has  a  capacity  of  250  kN  with  a  maximum  frequency  response  of  20 
Hz.  The  system  is  capable  of  meastiring  position,  load  and  two 
strain  channels  with  an  accuracy  of  0.2%  of  full-scale.  This 
particular  system  was  fitted  with  a  25  kN  load  cell  for  this 
series  of  tests.  The  fatigue  tests  were  run  in  load  control  and 
the  R-curve  tests  were  run  in  position  control.  The  computer 
interface  on  the  machine  is  IEEE.  Control  functions  as  well  as 
test  data  can  be  sent  and  received  over  the  IEEE  interface. 
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riGURE  1.  PICTURE  OP  EZMGLS  HOLE  ALDMZinni  EPECZMEM 


FIGURE  2.  PICTURE  OF  THREE  HOLE  ALUMINUM  SPECIMEN 
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FIGURE  4.  PICTURE  OF  EZPERZMEIITRL  TEST  SETUP 
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2.2  SOFTWXRE  DESCRIPTION 


A  software  program  called  "ACPOCYC  was  written  to  control  the 
fatigue  test  and  to  collect  test  data  and  store  it  in  an  ASCII 
file  for  post  test  analysis.  The  program  was  written  in 
Microsoft  Quick  Basic  version  4.5  and  ran  under  DOS  3.31.  A 
listing  of  the  source  code  is  given  in  Appendix  B.  Data 
communication  between  the  Instron  8502  and  the  PC  was  performed 
by  an  IEEE  interface.  A  National  instilments  PC-2 A  IEEE  card  was 
installed  inside  the  PC  for  this  purpose.  The  Questar  and 
Matelect  data  communication  was  performed  by  RS-232.  Microsoft 
Quick  Basic  can  only  address  two  communications  ports,  COMl:  and 
COM2:.  In  order  to  address  the  3rd  serial  device,  the  2nd 
parallel  port  on  the  PC  ,  LPT2 : ,  was  converted  to  a  serial  port 
using  a  parallel  to  serial  converter  from  Black  Box.  With  this 
configuration  the  software  program  sends  the  data  to  IiPT2:  and 
the  converter  converts  the  data  to  serial  data  for  the  attached 
device . 

The  software  was  designed  to  cycle  the  test  specimen  at  a  user 
defined  frequency,  stress  amplitude,  and  stress  ratio  for  a 
specified  nimber  of  cycles.  When  the  specified  number  of  cycles 
is  reached,  the  Instron  machine  stops  cycling  and  ramps  to  the 
maximum  load  in  the  cycle.  Once  maximxm  load  is  reached,  the 
potential  at  the  various  locations  is  measured.  Prior  to  running 
the  test  the  user  enters  the  number  of  locations  for  potential 
measurement  required  for  the  particular  specimen.  The  user 
specifies  for  each  individual  potential  measurement  the  current 
channel  used  and  the  potential  channel  to  measure.  The  user  also 
specifies  how  many  crack  length  locations  are  to  be  measured. 
After  the  potential  measurements  are  made,  the  results  are 
displayed  on  the  screen  and  the  user  has  the  option  of  repeating 
the  measurement.  A  measurement  is  repeated  if  a  lead  fails  and 
requires  rewelding  before  continuing.  After  the  potential 
readings  are  accepted,  the  program  measures  the  crack  lengths 
with  the  Questar.  This  was  an  interactive  procedure  which 
requires  the  user  to  first  aim  the  microscope  at  the  center  of 
the  hole  and  press  the  return  key  on  the  computer  to  zero  the 
digital  XY  position  readout,  and  then  aim  the  microscope  at  the 
crack  tip  and  press  the  return  key  so  that  the  computer  can  read 
the  digital  XY  readout.  This  procedure  is  repeated  for  every 
hole  or  rivet.  At  the  end  of  the  crack  length  measurements,  the 
crack  lengths  are  displayed  on  the  screen  and  the  user  has  the 
option  of  accepting  the  measurements  or  repeating  them.  Once  the 
measurements  are  accepted,  the  potentials,  crack  lengths,  stress 
amplitude,  stress  ratio,  and  cycle  number  were  stored  in  an  ASCII 
file  and  sent  to  the  printer.  After  this  is  done,  the  specimen 
is  subjected  to  cyclic  loading  until  the  next  cyclic  interval  is 
reached  and  the  measurements  are  repeated  again. 

While  a  specimen  is  being  cycled  there  is  a  variety  of  options 
available.  If  the  operator  sees  that  the  crack  is  growing 
rapidly,  the  test  parameters  can  be  changed  and  an  immediate 
measurement  of  AC  potential  and  crack  lengths  can  be  made.  A 
test  can  be  halted  temporarily  and  the  program  shells  to  DOS; 
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when  DOS  is  exited  the  cycling  is  autoaatically  resumed.  At  any 
time  during  the  testing  the  cycling  can  be  stopped  and  the 
program  exited. 

A  separate  program  called  "ACPDRAM"  was  %rritten  for  the  R~curve 
testing.  This  program  was  based  upon  "ACPDCYC"  and  operated  in 
much  the  same  manner.  This  program  subjected  the  specimen  to  a 
tensile  position  ramp  at  an  operator  specified  rate  and  measured 
load,  position,  and  AC  potential  at  one  location,  and  crack 
leng^  at  another  location.  The  data  was  collected  at  one-second 
intervals  and  stored  in  an  ASCII  file. 


2.3  SPECZKEN  TYPES  AND  SPECZMEM  PREPARATION 

Three  types  of  specimens  were  tested.  The  specimens  were  one 
hole,  three  hole,  and  riveted  panels.  Pictures  of  the  specimens 
are  shown  in  Figure  1  to  3  and  detailed  drawings  are  given  in 
Appendix  A.  The  one  hole  specimens  were  manufactured  at  Instron 
from  1  mm  thick  ALCLAD  2024  aluminum  sheet.  The  three  hole 
specimens  and  riveted  panels  were  manufactured  by  Arthxir  D. 

Little  from  1  mm  thick  ALCLAD  2024  aluminiim  sheet. 

The  potential  leads  were  0.50  mm  dia  aluminxim  99.9999%  wire  and 
the  cxirrent  leads  were  1.0  mm  dia  aluminum  99.9999%  wire.  Both 
leads  were  attached  to  the  specimens  by  spot  welding.  Spot 
welding  aluminxun  wire  to  aluminum  sheet  is  difficult.  A  good 
weld  requires  the  right  amount  of  pressiire  and  power.  Too  little 
pressure  results  in  a  spark  which  burns  the  wire,  whereas  too 
much  pressure  crushes  the  wire.  Conversely  too  little  power 
results  in  no  weld  being  made  and  too  much  power  results  in  a 
spark  which  burns  the  wire.  The  spot  welder  used  was  a  Unitek 
model  125  which  has  125  watt-seconds  of  stored  energy  and  a  2.3 
msec  pulse  width.  The  weld  heads  used  were  a  Unitek  model  80F 
fixed  weld  head  and  a  model  THF  small  welding  hand  piece.  The 
80F  weld  head  had  adjustable  firing  force,  which  made  it  easy  to 
repeatedly  weld  wires.  The  THP  was  a  hand  held  unit  and  firing 
force  control  was  poor.  This  unit  is  quite  portable  and  was  used 
to  repair  broken  leads  for  specimens  which  were  under  test.  Good 
welds  were  obtained  with  the  THP  if  the  welding  was  done  in  three 
steps.  For  0.50mm  wire,  start  at  30%  power,  then  weld  again  at 
40%  power  and  finally  weld  at  50%  power.  For  1.0mm  wire  start  at 
50%  power,  then  weld  again  at  80%  power  and  finally  weld  at  100% 
power. 


2.4  NOISE  SOURCES  AND  NOISE  REDUCTION 

Dxiring  the  testing  programs  the  experiments  were  constantly 
monitored  and  sources  of  noise  pick-up  and  drift  were 
investigated.  The  two  largest  problems  which  were  found  will  be 
described  below.  The  Matelect  scan  controller  has  three 
programing  modes.  The  first  mode  scans  current  and  potential 
channels  simultaneously,  the  second  mode  scans  only  current  or 
potential  channels,  and  the  third  mode  allows  for  random 
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prograaing  of  current  and  potential  channels.  The  initial  tests 
used  the  first  programing  mode  of  the  scanner  because  it  was  the 
easiest  to  program.  Zn  this  mode  the  number  of  current 
connections  to  the  scanner  had  to  be  equal  to  the  number  of 
potential  connections.  For  example,  for  a  specimen  with  two 
potential  leads  and  one  current  lead,  the  two  current  cables  from 
the  scanner  to  the  terminal  strip  on  the  specimen  would  be  tied 
together  at  the  terminal  strip.  After  tests  with  this 
arrangement  had  gone  on  for  approximately  one  month,  it  was 
discovered  that  connecting  two  cables  into  one  tezminal  strip 
affected  the  measured  potentials.  The  attachment  of  the  second 
current  cable  created  an  alternative  current  field  path  which 
changed  the  measured  AC  potential.  This  problem  was  corrected  by 
using  the  random  programing  mode  of  the  scanner  which  allow  the 
use  of  fewer  current  cables.  In  the  previous  example  only  one 
current  lead  would  be  required.  A  second  source  of  noise  was  the 
routing  of  the  potential  and  current  cables  from  the  scanner  to 
the  specimen.  If  the  current  cables  were  too  close  to  the 
potential  cables,  then  the  current  cables  Would  induce  a 
potential  in  the  potential  cables.  It  was  important  to  keep  the 
two  sets  of  cables  as  far  away  from  each  other  as  possible  and  to 
keep  them  rigidly  tied  down. 
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3.  RESULTS  RHD  DISCUSSION 


Two  different  types  of  test  were  run:  cyclic  and  static.  The 
cyclic  test  was  run  to  determine  how  well  ACPD  could  measure 
crack  initiation  and  crack  gro%rth  in  specimens  with  holes  and 
rivets.  The  static  test  was  used  to  measure  R-curve  behavior. 

The  goal  of  these  tests  were  to  determine  if  the  AC  potential  was 
affected  by  the  plastic  deformation  that  occtirs  with  this  type  of 
test.  Three  types  of  specimens  were  used  for  the  cyclic  test: 
one  hole,  three  hole,  and  riveted  specimens.  The  one  hole 
specimens  were  used  to  learn  about  the  ACPD  technique  and  to 
experiment  with  different  lead  geometries.  The  other  two 
specimens  were  used  to  determine  the  sensitivity  of  ACPD  in 
measuring  multi-site  crack  initiation  and  growth.  The  R-curve 
tests  were  run  only  with  the  one  hole  specimens,  since  the  goal 
of  this  experiment  was  only  to  measure  the  effect  of  plastic 
deformation  on  AC  potential. 


3.1  ONE  HOLE  SPECIMEN  CYCLIC  TESTS 

The  one  hole  specimens  were  used  to  learn  about  the  sensitivity 
of  various  potential  and  current  lead  geometries  and  to 
experiment  with  various  ACPD  parameters.  In  the  one  hole 
experiments  sources  of  noise  and  inconsistent  data  were 
determined  as  described  in  the  previous  section.  Because  many  of 
these  experiments  had  the  previously  described  noise  sources,  the 
reader  should  not  scrutinize  the  data  for  exact  relationships, 
but  rather  use  it  to  observe  general  trends.  A  sximmary  of  the 
one-hole  tests  is  given  in  Table  l.  The  details  of  the  lead 
attachment  geometry  can  be  found  in  Appendix  A,  which  contains 
the  individual  specimen  drawings.  This  table  lists  the  current 
frequency  used,  has  a  description  of  the  potential  and  current 
lead  geometry,  and  contains  a  comment  about  the  test  and,  where 
applicable,  the  fitting  parameters  used  to  describe  the  crack 
length  AC  potential  relationship.  The  crack  length  relationship 
used  was  a  linear  one  given  by  the  following  equation. 


a*m« (Pd-Pdo)+b 


The  initial  potential  of  the  uncracked  hole,  Pd^,  was  found  to 
vary  from  specimen  to  specimen  with  identical  lead  geometries, 
for  some  unknown  reason.  It  was  determined  that  the  crack  length 
potential  relationship  for  identical  specimens  was  consistent 
when  the  initial  potential,  Pd-,  was  subtracted  from  the  actual 
potential,  as  in  equation  1.  rae  crack  length  was  measured  from 
the  edge  of  the  hole. 

Potential  leads  were  attached  at  both  sides  of  the  holes  to 
monitor  crack  initiation  and  growth.  All  specimens  had  these 
leads  attached  at  the  same  location.  Some  of  the  specimens  had 
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r«f«r«nc«  leads  attached  below  the  hole.  A  few  specinens  also 
had  potential  leads  attached  at  the  center  line  of  the  hole  at 
top  and  bottom  locations.  Two  different  current  lead  locations 
were  experimented  with.  The  first  geometry  consisted  of  two 
leads  per  hole  with  the  leads  attached  at  the  center  line  of  the 
hole  at  a  distance  of  ether  **30**  (0  «  hole  diameter)  or  **60"  from 
the  center  of  the  hole.  The  second  geometry  consisted  of  4  leads 
per  hole,  with  leads  attached  to  the  left  and  right  sides  of  the 
hole  at  distances  of  "30"  and  "60**  from  the  center  of  the  hole. 
The  current  lead  were  placed  so  that  the  c\u:rent  path  was  in  line 
with  the  potential  leads;  this  maximizes  the  current  focusing 
effect. 

The  effect  of  potential  lead  placement  on  crac)c  length 
sensitivity  was  studied  with  specimen  ALH1_4 .  The  potential 
leads  were  placed  on  either  side  of  the  hole  and  also  in  the 
middle  of  the  hole.  The  middle  location  should  average  the  crack 
growth  from  both  sides  of  the  hole,  whereas  the  side  locations 
measure  growth  from  each  side  of  the  hole. '  The  results  are  shown 
in  Figure  7.  The  results  show  that  the  side  locations  are  more 
sensitive,  in  that  they  show  greater  potential  increase  for  a 
given  amount  of  crack  gro%fth.  The  side  locations  show  more 
scatter,  but  this  is  to  be  expected  since  this  data  is  from  two 
sets  of  potential  leads  compared  with  one  set  for  the  middle 
location.  The  least  squares  fitting  parameters  are: 

Location  Slope  (fm/nV)  Intercept  (mm)  Correlation  coefficient 

side  59  2.379  0.89 

middle  151  3.964  0.978 

The  effect  of  current  leads  spacing  was  examined  in  the  same 
specimen.  The  middle  current  leads  were  placed  at  distances  of 
"30"  and  ”6D"  from  the  hole  centerline.  The  results  showed  that 
a  spacing  of  "3D"  was  more  sensitive,  114  tmfy.V  versus  151  im/nV, 
which  is  a  25%  increase  in  sensitivity  for  the  "3D"  spacing.  A 
disadvantage  of  the  "3D"  spacing  is  that  the  slope  sensitivity 
factor  would  change  more  when  the  leads  were  placed  slightly  off 
from  the  "3D"  spacing  than  would  the  "6D"  spaced  leads.  A  close 
examination  of  reference  voltages  from  specimens  with  both  3D  and 
6D  spaced  current  leads  showed  that  the  reference  voltages  were 
less  noisy  and  more  constant  for  the  "6D"  spaced  current  leads. 
The  current  lead  geometry  which  had  two  leads  per  hole  produced 
more  consistent  reference  voltages.  Initially  it  was  thought 
that  an  expression  derived  from  the  work  of  Collins  Dover  and 
Michael  [6]  which  relates  the  ratio  of  active  to  reference 
voltage  could  be  used  to  correlate  the  potential  drop  data.  This 
expression  when  applied  to  the  geometry  of  the  one  hole  specimens 
is  as  follows. 
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Wh«re:  A  *  spacing  between  potential  probes 

active  potential 
reference  potential 

vertical  distance  from  edge  of  hole  to 
potential  lead 

Appendix  C  gives  a  derivation  of  this  equation.  This  expression 
was  applied  to  the  test  data  front  various  specimens.  Figure  8 
shows  a  comparison  of  predicted  and  actual  crack  length  versus 
cycle  number  for  one  of  the  best  cases.  The  prediction  gives  the 
right  trend  of  increasing  crack  length  with  cycle  number,  but 
there  is  a  large  difference  between  calculated  and  actual  crack 
lengths . 

One  test  was  run  in  which  the  current  leads  were  placed  at  a 
distance  of  20D  from  the  center  of  the  hole.  The  current  leads 
were  routed  so  that  they  would  not  induce  an  additional  current 
field.  This  was  done  by  making  the  leads  run  perpendicular  to 
the  loading  axis.  The  results  showed  that  this  lead  geometry  was 
not  very  sensitive.  The  sensitivity  was  3455  im/iiV,  which  is 
poor  compared  to  59  tm/fiV,  for  a  specimen  with  a  6D  current 
spacing  and  current  focusing  by  routing  the  leads  parallel  to  the 
loading  axis. 
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FIGURE  7.  EFFECT  OF  POTENTIAL  LEAD  PLACEMENT  ON  CRACK  LENGTH 
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FIGURE  8.  FREOZCTXOH  OF  CRACK  LENGTH  FROM  RATIO  OF  FOTEMTIAL8 


Another  variable  which  was  examined  was  the  effect  of  having  the 
current  leads  on  the  same  side  as  the  potential  leads  or  on  the 
opposite  side.  This  was  examined  with  specimen  ALH1_6  in  which 
each  potential  was  measured  with  the  current  applied^on  the  same 
and  opposite  sides  of  the  specimen.  The  results  are  shown  in 
Figure  9.  The  potentials  are  higher  when  the  current  leads  are 
on  the  same  side  as  the  potential  leads,  but  both  readings  seem 
to  give  the  same  increase  in  potential  with  crack  length.  The 
data  in  Figure  9  was  re-plotted  with  the  initial  potential 
readings  subtracted.  This  is  shown  in  Figure  10,  which  shows 
that  the  results  are  identical  when  the  side  to  which  the  current 
is  injected  is  changed.  The  only  effect  of  changing  the  side  of 
the  specimen  to  which  current  is  injected  is  that  it  changes  the 
initial  potential  with  no  crack,  ^e  geometry  in  which  the 
current  leads  are  on  the  opposite  side  from  the  potential  leads 
is  more  convenient  since  there  are  fewer  leads  on  the  side  where 
visual  crack  length  measurements  are  made. 

The  effect  of  current  frequency  was  investigated  by  measuring  the 
potentials  with  the  current  frequency  at  3,  10  and  30  kHz.  The 
results  are  shown  in  Figure  11.  The  key  observation  from  this 
plot  are  that  the  sensitivity  of  ACPD  technique  increases  with 
ciurrent  frequency  and  that  the  scatter  in  the  results  also 
increases  with  current  frequency. 
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FIGURE  9.  EFFECT  OF  CURRENT  LEEDS  BEZNO  ON  SEME  OR  OPPOSITE 
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FIGURE  11.  EFFECT  OF  CURRENT  FREQUENCY  VZTH  ONE  HOLS  SPECIMEN 
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TABLE  1.  SUMMARY  OF  0MB  HOLE  8FECZMEM  CYCLIC  TESTS 
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TABLE  1.  SUMMARY  OF  ONE  HOLE  SPECIMEN  CYCLIC  TESTS  (oontillU«d) 


3.2  THREE  HOLE  SPECIMEN  CYCLIC  TESTS 

A  total  of  seven  three-hole  specinens  were  tested.  The  goals  of 
these  experiments  were  to  investigate  two  different  current  lead 
geometries,  to  observe  the  effect  of  current  frec[uency,  and  to 
determine  the  repeatability  of  the  technique.  A  summary  of  the 
three-hole  tests  is  given  in  Table  2.  The  details  of  the  lead 
attachment  geometry  can  be  found  in  Appendix  A,  which  has  the 
individual  specimen  drawings.  Table  2  lists  the  current 
frequency  used,  has  a  description  of  the  potential  and  current 
lead  geometry,  and  contains  a  comment  about  the  test  and,  where 
applicable,  the  fitting  parameters  used  to  describe  the  crack 
length  AC  potential  relationship. 

One  thing  which  needed  to  be  done  was  to  evaluate  the  difference 
between  the  effect  of  two  sets  of  current  leads  per  hole  versus 
one  set  which  is  placed  in  the  middle  of  the  hole.  Based  upon 
the  one  hole  test  results  is  was  decided  that  the  current  spacing 
should  be  "6D."  The  first  two  specimens  AIiH3_l  and  ALH3_2 
attempted  to  determine  the  difference  between  the  two  current 
lead  geometries.  The  results  showed  that  the  single  set  of 
current  leads  were  more  sensitive:  78  nm/nV  versus  86  nn/nV. 

This  result  was  in  contradiction  to  the  one  hole  results,  which 
showed  the  opposite  effect.  A  later  investigation  of  the  results 
showed  that  these  experiments  had  two  problems.  First  the  tests 
were  run  with  multiple  connections  into  the  current  scanner  ports 
and  the  current  and  potential  leads  were  not  separated  enough  to 
give  adequate  isolation.  The  two  problems  were  corrected  in 
tests  with  specimens  AIiH3_4  and  those  following  it,  including  all 
the  riveted  tests  and  tests  on  one  hole  specimens  ALH  1_6  and 
those  following  it.  Test  specimen  ALH3_4  was  instrumented  to 
examine  the  effect  of  current  lead  geometry  within  a  single 
specimen.  Figure  12  shows  a  plot  of  crack  length  versus  AC 
potential  for  current  lead  geometries  with  one  set  of  current 
leads  in  the  middle  of  the  hole  and  for  the  case  with  a  set  of 
current  leads  on  either  side  of  the  hole.  The  current  frequency 
in  this  test  was  10  ]cHz.  The  results  with  two  sets  of  current 
leads  gave  greater  sensitivity,  53  fm/fiV,  versus  59  /xm/^V,  which 
is  a  10%  change.  This  same  comparison  was  made  with  specimens 
AIiH3_5  and  ALH3_6,  except  that  the  current  frequency  was  30  kHz. 
The  results  are~shown  in  Figure  13.  The  specimen  with  only  one 
set  of  current  leads  per  hole  was  less  sensitive  to  measuring 
crack  growth.  The  slope  sensitivity  factors  were  24  im/nV  versus 
29  ftm/fiV,  a  17%  change. 

The  results  from  both  one  hole  and  three  hole  specimens  show  that 
by  placing  two  sets  of  current  leads  per  hole,  there  is  an 
increase  in  the  sensitivity  of  ACPD  to  measuring  crack  growth. 

The  amount  of  the  increase,  however,  is  quite  small.  It  was 
decided  to  only  use  one  set  of  current  leads  per  hole  since  there 
was  very  little  sacrifice  in  sensitivity,  and  specimen 
preparation  was  greatly  simplified.  The  final  potential  and 
current  lead  geometry  consisted  of  potential  leads  on  either  side 
of  each  hole,  and  one  set  of  current  leads  in  the  middle  of  each 
hole  with  a  current  lead  spacing  of  "6D." 
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Specinens  ALH3_6  and  ALH3_7  were  prepared  with  the  final  lead 
geometry.  These  specimens  were  tested  under  identical  conditions 
to  determine  the  repeatability  of  the  ACPD  technique.  The 
results  for  specimen  ALH3_6  are  shovm  in  Figure  14.  The  30  kHz 
current  frequency  gives  the  greatest  sensitivity  for  measuring 
crack  growth,  whereas  the  3  kHz  current  frequency  gives  the  least 
sensitivity.  The  amount  of  data  scatter  has  been  reduced  from 
previous  experiments.  This  is  due  to  a  combination  of  improved 
experimental  technique  and  experience.  Figure  15  shows  a 
comparison  between  duplicate  test  specimens.  There  is  excellent 
agreement  between  the  two  specimens  for  the  3  and  10  )cHz  test 
data.  The  test  data  at  30  IcHz  shows  a  small  difference  between 
the  two  test  specimens. 

The  crack  length  versus  AC  potential  test  data  was  fit 
mathematically  using  both  linear  and  non-linear  equations. 

Figures  16  shows  the  data  from  specimen  ALH3_6  with  a  linear  fit 
and  Figure  17  shows  the  data  with  a  5th  order  polynomial  fit. 

The  fitting  coefficients  are  listed  in  Table  3.  The  linear  fit 
does  a  poor  job  for  crack  lengths  less  than  1.5  mm.  The  5th 
order  polynomial  does  a  good  job  fitting  the  data  over  the  entire 
range  of  crack  lengths  studied.  The  r^  values  are  better  for  the 
5th  order  fit  than  those  for  the  linear  fit;  which  again 
reinforces  the  fact  that  a  5th  order  polynomial  fits  the  data 
better . 

Visually  it  was  difficult  to  measure  cracks  which  were  less  than 
0.50  mm.  This  was  due  to  the  rough  finish  around  the  hole  and 
the  ensuing  plastic  deformation  which  would  develop  during 
fatigue  cycling.  A  close  examination  of  the  ACPD  data  showed 
that  the  potential  would  increase  before  any  cracks  were  measured 
visually.  An  example  of  this  is  shown  in  Figure  18.  There  is  a 
steady  increase  in  potential  until  a  visual  crack  is  seen.  This 
plot  shows  that  crack  initiation  can  be  detected  by  AC  potential 
drop. 
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FIGURE  12.  C0KFRRZ80N  OF  ACFD  8EN8ZTZVXTY  AT  10  KHZ  FOR  TWO 

CURRENT  LEAD  GE0NETRZE8 
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FIGURE  13.  COMPARZ80N  OF  ACFD  SENGZTZVZTY  AT  30  KHZ  FOR  TWO 

CURRENT  LEAD  6E0METRZE8 
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FIGURE  14.  COMPARISON  OF  ACFD  SENSITiyiTY  AS  FUNCTION  OF  CURRENT 
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FIGURE  15.  COMPARISON  OF  ACPD  DATA  ON  DUPLICATE 

TEREE  ROLE  TESTS 
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FIGURE  16.  C0MPRRI80M  OF  LXNERR  FIT  OF  XCPD  DATA 
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FIGURE  17.  COMPARISON  OF  STB  ORDER  POLYNOMIAL  FIT  OF  ACPD  DATA 
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FIGURE  18.  PLOT  OP  POTEHTZAL  RMD  CRACK  LENGTH  VERSUS  CYCLES 

FOR  THREE  HOLE  TEST 
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Spedmen  Frequency  Potential  lead  location  Current  lead  location  Comments 

Number  (kHz) 
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Current  leads  in  middle  (1/hole) 


TABLE  2.  SUMMARY  OF  TRREB  HOLB  TESTS  (eontlnusd) 
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3.3  RIVETED  EPECXMEM  CYCLIC  TESTS 

A  total  of  ten  riveted  panel  epeciaens  were  tested.  The  goals  of 
these  experiments  were  to  investigate  the  sensitivity  of  ACPD  for 
neasuring  crack  growth  and  crack  initiation.  A  sumnary  of  the 
riveted  panel  tests  is  given  in  Table  4.  The  details  of  the  lead 
attachaent  geoaetry  can  be  found  in  Appendix  B,  which  has  the 
individual  speciaen  drawings.  This  table  lists  the  current 
frequency  used,  has  a  description  of  the  potential  and  current 
lead  geoaetry,  and  contains  a  coaaent  about  the  test  and,  where 
applicable,  the  fitting  paraaeters  used  to  describe  the  crack 
length  AC  potential  relationship. 

The  first  two  speciaens  ALR3_1  and  ALR3_2  failed  from  the  inside 
of  the  lap  joint  towards  the  surface  of  the  panel.  There  was 
practically  no  change  in  AC  potential  during  the  test.  Visually 
only  the  surface  deformation  caused  by  the  internal  cracking  was 
seen.  The  cracks  propagated  from  back  of  the  lap  joint  towards 
the  sxirface  of  the  panel  because  of  excessive  bending  due  to  the 
fact  that  there  was  only  one  row  of  rivets.  A  pair  of  aluminum 
clamps  was  manufactured  and  they  were  placed  at  either  end  of  the 
lap  joint.  Appendix  B  for  specimens  ALR3_3  to  ALR3_10  shows  a 
schematic  of  this  clamping  arrangement.  A  piece  of  mylar  film 
was  placed  between  the  clamp  and  the  specimen  to  electrically 
isolate  the  clamp  from  the  specimen.  The  bolts  on  the  clamps 
were  tightened  ringer  tight.  Specimen  ALR3_3  was  tested  with 
this  new  arrangement  and  cracks  were  easily^initiated  from  the 
rivets. 

Figure  19  shows  the  results  for  riveted  panel  ALR3_5.  The 
results  show  the  same  trends  as  for  the  three  hole'^'tests .  The 
key  differences  appear  to  be  that  the  sensitivity  of  potential 
drop  for  measuring  crack  advance  in  riveted  panels  is  less  than 
that  of  the  three  hole  tests.  It  also  appears  that  the  riveted 
panel  results  have  more  data  scatter.  The  potential  leads  for 
specimen  ALR3_5  were  attached  to  the  specimen  at  the  locations 
shown  in  Appendix  B.  The  potential  leads  were  laid  flat  on  the 
surface  of  the  specimen  and  were  routed  perpendicular  to  the 
loading  axis  for  approximately  5  mm  and  were  bent  at  right  angles 
and  then  traveled  parallel  to  the  loading  axis.  Specimens  ALR3_6 
to  ALR3_10  had  potential  leads  attached  at  the  same  location  as 
specimen  ALR3_5,  but  the  wires  were  routed  differently.  The 
wires  were  routed  so  that  they  extended  about  10  mm  up 
perpendicular  from  the  sxirface  of  the  specimen  and  then  were  bent 
at  right  angles  and  traveled  parallel  to  the  loading  axes. 

Figure  2  shows  a  picture  of  how  the  potential  leads  were  routed 
for  specimen  ALR3_5  and  Figure  3  shows  how  it  was  routed  for 
specimens  AIiR3__6  to  ALR3_10.  The  routing  of  the  potential  leads 
for  specimens  ALR3_6  •  ALRl  10  has  the  advantage  that  the 
potential  leads  do‘~not  get  In  the  way  of  visual  crack  length 
measurements.  When  specimen  ALR3_6  was  tested  there  were  two 
surprises  in  the  results.  First  the  potential  measured  with  no 
crack  was  substantially  higher  for  ALR3_6.  With  a  30  kHz  test 
frequency  the  potentials  with  no  crack  were  52  /xV  versus  180  fiV. 
The  second  surprise  was  that  the  potential  lead  routing  of  ALR3_6 
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was  more  sensitive.  This  is  6ho%m  in  Figure  20.  The  reasons  for 
these  differences  remains  unclear. 

The  crack  length  potential  drop  data  was  found  to  be  adequately 
represented  by  a  linear  fit  as  shown  in  Fig\ire  21.  A  duplicate 
specimen  to  ALR3_6  was  run,  ALR3_7,  to  determine  the 
repeatability  of  the  results.  The  results  are  shown  in  Figure 
22.  The  ACPO  data  for  the  riveted  panels  show  similar 
repeatability  as  the  three  hole  results  (Figure  15) ,  however  the 
scatter  is  somewhat  greater.  The  minimum  detectable  visual  crack 
is  1.0  mm  versus  0.50  mm  for  the  three  hole  tests.  The  data  in 
Figures  21  and  22  indicates  that  the  potential  increases  even 
though  there  is  no  visible  crack  groiirth.  This  is  shown  more 
clearly  in  Figure  23  which  is  a  dual  y  axis  plot  of  potential  and 
crack  length  versus  cycles. 


FIGURE  19.  PLOT  OF  CRACK  LENGTH  VERSUS  POTENTIAL  FOR  RIVETED 

PANEL  ALR3  5 
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AC  Poltntial  (uV) 


FIGURE  21.  PLOT  OF  CRACK  LENGTH  VERSUS  POTENTIAL  FOR 

RZVSTED  PANEL  ALR3  S 
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FIGURE  22.  PLOT  OF  CRACK  LEK6TH  VERSUS  POTENTIAL  FOR  RIVETED 

PANELS  ALR3  C  AND  ALR3  7 
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FIGURE  23.  PLOT  OF  CRACK  LENGTH  AND  AC  POTENTIAL  VERSUS  CYCLES 
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TABLE  4.  8UKMARY  OF  RXVETED  FAMEL  TESTS 
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TABLE  4.  BUMMABY  OF  RIVETED  PANEL  TESTS  (eoBtinuvd) 
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A  series  of  experiments  was  conducted  to  determine  if  ACPD  could 
detect  crack  initiation.  The  data  in  Figure  23  showed  that  the 
potential  increased  before  visible  cracks  were  detected.  The 
increase  in  potential  seen  does  not  necessarily  have  to  be  due  to 
crack  growth;  other  factors  such  as  deformation  or  a  change  in 
the  conduction  through  the  rivet  could  cause  a  similar  effect. 

In  order  to  determine  the  cause  of  the  potential  increase, 
riveted  aluminum  panels  were  subjected  to  alternating  cycles  of 
low  to  high  stress  ratio  cycling  with  the  maximum  load  keep 
constant.  The  idea  being  that  the  crack  would  grow  during  the 
low  stress  ratio  cycling  and  the  high  stress  ratio  cycling  would 
mark  the  crack  front  of  the  fracture  surface  with  a  band.  Three 
different  stress  ratio  combinations  were  tried:  (0.10,0.50), 
(0.10,  0.60),  (0.10,0.70).  The  first  two  stress  ratio 
combinations  did  not  produce  visible  bands.  The  last  stress 
ratio  combination  produced  fractiire  surface  bands.  A  SEM  picture 
of  the  fracture  surface  bands  are  shown  in  Figure  24.  A 
comparison  of  crack  length  measured  from  the  SEM  picture  and  that 
measured  optically  was  made.  The  data  is  shown  in  Table  5,  which 
lists  the  two  crack  lengths  and  the  measured  potential  increases. 
The  data  shows  that  the  potential  increase  is  due  to  crack 
growth.  The  ACPD  technique  can  measure  crack  initiation  but  it 
is  difficult  to  correlate  the  potential  to  crack  growth.  More 
experiments  like  that  run  on  ALR3_10  are  needed  to  quantify  the 
crack  initiation  stage.  The  data  from  these  experiments 
indicates  that  a  10  fiV  change  in  potential  translates  into  a  0.5 
mm  crack  and  that  the  crack  has  to  be  between  1  to  2  mm  before  it 
is  seen. 


TABLE  5.  COMPARISON  BETWEEN  SEM  AND  VISUAL  CRACK  LENGTHS  IN 
CRACK  INITIATION  STUDY  ON  ALR3  10 


Band 

SEM  a(mm) 

Visual  a(mro) 

Pd-Pdo(uV) 

1 

0.559 

0 

10.5 

2 

1.168 

0 

16.3 

3 

1.803 

1.956 

44.0 

2.743 


3.150 


62.6 


FIGURE  24.  S£M  PICTUKE  SHOWING  BANDING  ON  FRACTURE  SURFACE  OF 
RIVETED  PANEL  PRODUCED  BY  HIGH  LOW  STRESS  RATIO  CHANGES 


3.4  RISING  LOAD  R-CURVE  TESTS 

The  R-curve  tests  were  run  using  single  hole  specimens.  The 
specimens  were  instrumented  with  potential  leads  on  either  side 
of  the  hole  and  a  single  current  lead  was  attached  at  the  center 
of  the  hole  on  the  opposite  side  using  a  spacing  of  6D  from  the 
center  of  the  hole.  The  current  frequency  was  30  kHz.  Test 
specimens  were  fatigue  pre-cracked  to  obtain  cracks  in  the  range 
of  7  to  9  mm.  The  specimens  were  tested  in  position  control 
using  a  ramp  with  a  rate  of  0.127  mm/min.  Load,  position,  AC 
potential,  and  crack  length  was  measured  at  one-second  intervals 
and  stored  into  an  ASCII  file.  The  longest  crack  was  the  crack 
that  was  monitored  visually  and  whose  AC  potential  was  measured. 
Figure  25  shows  the  load  displacement  plot  for  a  typical  test. 
Figure  26  shows  a  plot  of  AC  potential  and  crack  length  versus 
position.  Initially  the  potential  increases  rapidly;  this  is  due 
to  opening  of  the  crack  which  eliminates  surface  shorting.  After 
the  crack  is  open  enough  to  eliminate  surface  shorting  the 
potential  does  not  change  until  the  crack  starts  to  grow.  The 
crack  length  was  monitored  visually  with  the  Questar  and  the 
stage  was  moved  manually  as  the  crack  grew.  Steps  in  the  crack 
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length  versus  position  plot  are  observed  because  it  was  difficult 
to  resolve  the  crack  tip  continuously.  Careful  exanination  of 
Fig\2res  25  and  26  shows  that  the  crack  grows  before  naxinum  load 
is  reached.  After  naximum  load  is  reached  the  crack  propagates 
rapidly.  Figures  27  to  29  shows  plots  of  AC  potential  versus 
crack  length  for  the  three  speciaens  tested.  The  R-ctirve  data 
are  simply  a  linear  extension  of  the  fatigue  precracking  results. 
The  plastic  deformation  of  the  R->curve  test  does  not  appear  to 
have  any  effect  on  the  crack  length  potential  relationship. 

Crack  length  during  an  R-curve  test  can  be  measured  with  AC 
potential  drop  using  the  correlations  obtained  by  fatigue 
cracking  experiments.  The  mode  of  loading  does  not  affect  the 
relationship  between  crack  length  and  potential. 


FIGURE  25.  LOAD  DZSFLACEMEMT  CURVE  FOR  R-CURVE  TEST 
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FIGURE  26.  AC  POTEMTZAL  AND  CRACK  LENGTH  VERSUS  POSITION 

FOR  R-CURVE  TEST 
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FIGURE  27.  R-CURVE  TEST  FOR  ALH  1  6.  CRACK  LENGTH  VERSUS 

POTENTIAL  ~ 
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FIGURE  28.  R-CURVE  TEST  FOR  RLHl  7.  CRRCK  LENGTH  VERSUS 
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FIGURE  29.  R-CURVE  TEST  FOR  RLBl  8.  CRRCX  LENGTH  VERSUS 
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4.  SDXKXRY 


The  technique  of  AC  potential  drop  was  applied  to  typical 
aluminum  aircraft  panel  test  specimens.  The  technique  was 
evaluated  to  determine  its  sensitivity  for  measuring  multiple 
site  crack  initiation  and  growth  under  cyclic  fatigue  conditions. 
The  technique  was  also  evaluated  for  static  R-curve  testing.  The 
optimum  locations  for  attaching  both  potential  leads  and  current 
leads  were  determined  for  three  hole  specimens  and  for  specimens 
with  a  single  row  of  three  rivets.  The  effect  of  current 
frequency  on  the  sensitivity  of  the  technique  to  measure  crack 
growth  was  also  examined. 

The  results  of  the  cyclic  test  are  as  follows.  The  AC  potential 
can  be  used  to  measure  crack  grot/th  in  three  hole  and  riveted 
panels.  Both  theoretical  and  empirical  correlations  of  AC 
potential  with  crack  length  were  examined.  The  theoretical 
relationships  predicted  crack  len^h  from  the  ratio  of  active  to 
reference  potential.  The  theoretical  relationship  worked  poorly. 
An  empirical  relationship  which  relates  the  crack  length  to  the 
potential  by  a  simple  linear  expression  worked  well.  The 
expression  used  was: 


a=m*  (Pd-Pdo)+b 


It  was  found  that  the  initial  potential  measured  on  an  uncracked 
hole  or  rivet  varied  from  specimen  to  specimen  and  from  hole  to 
hole.  In  riveted  panels  this  potential  varied  at  30  kHz  from  a 
low  of  50  ttV  to  a  high  of  200  |iV.  It  was  found  that  if  this 
Initial  potential  was  subtracted,  a  simply  linear  equation  could 
be  used  to  correlate  the  data.  The  sensitivity  of  the  technique 
is  determined  by  the  slope  "m."  A  lower  elope  means  greater 
sensitivity.  The  slope  decreased  as  the  cizrrent  frequency  was 
increased.  The  three  hole  specimens  had  average  slopes  of  32,68, 
and  1  nm/nV  at  current  frequencies  of  30,10  and  3  kHz 
respectively.  The  riveted  panels  had  average  slopes  of  77,159, 
and  259  im/nW  at  current  frequencies  of  30,10  and  3  kHz 
respectively.  The  ACPD  technique  was  more  sensitive  for 
specimens  with  holes  than  those  with  rivets. 

The  minimum  detectable  visual  crack  was  0.5  mm  for  three  hole 
specimens  and  l.O  mm  for  riveted  panels.  Before  cracks  were 
detected  visually,  an  increase  in  the  potential  was  observed. 

Test  specimens  were  subjected  to  low  to  high  stress  ratio  cycling 
which  produces  bands  on  the  fracture  surface.  When  these 
specimens  were  examined  in  the  SEM,  the  width  of  the  bands  was 
measured  and  was  correlated  with  the  measured  AC  potentials.  It 
was  shown  that  the  AC  potential  increase  was  due  to  crack 
advance. 
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R-c\irv«  testing  was  done  on  one-hole  8peci»ens. 

experiments  showed  that  the  AC  potentials  were  not 

tS  deformation  in  these  tests.  Correlations  of  crack  leng^  to 

potential  measured  by  fatigue  accurately 

advance  in  the  r-curve  tests.  The  crack  length  potential 

relationships  are  not  affected  by  the  loading  mode. 
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CLS  :  COSUB  RTparaas 

CLS  :  Fllered$  -  Filenaae$  *  ".FRN":  File$  -  Filenaae$  *  ".DAT":  COLOR  7,  1 
IF  FQ$  -  "FYES"  THEM  Filered$  -  Filenaae$  *  "C.PRN" 

F. Exist:  CALL  Exist(File$,  X) 

IF  X  THEN  '  File  Exists 
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LOCATE  2,  10 

PRINT  "The  Date  Pile  :  *;  Fila$;  *  Already  axlsc  on  disk* 

LOCATE  4,  10:  PRINT  ■Purge  File  (Y/N)  *; 

INPUT  Fans$ 

IF  Fans$  -  *Y*  Ot  Fana$  -  "y*  THEN 

LOCATE  6,  10:  PRINT  -File  *;  Flla$:  -  trill  be  purgad* 

PRINT  -File  ■;  Flla8;  *  will  be  purgad* 

KILL  Flla$:  OPEN  Fllarad$  FOR  (»m0T  AS  WS:  CLOSE  *5 
IF  FQ$  -  "FYES*  THEN 

FK$  -  FllanaM8  *  "A.PRN*:  OPEN  FK$  FOR  OUTPUT  AS  *5:  CLOSE  «5 
FIC$  -  FllanaM$  *  *B.FRN*:  OPEN  FK$  FOR  OUTPUT  AS  *5:  CLOSE  *5 
END  IF 

OPEN  Flla$  FOR  OUTPUT  AS  #3 
ELSE 

IF  (Fans$  -  *N*  OR  Fans$  -  "n*)  THEN 

LOCATE  6,  10:  PRINT  *Tha  file  *;  Flla$;  *  will  be  appended* 
FllaprB$  -  FllanaM$  ’.PRN* 

OPEN  Fllepnt$  FC»t  INPUT  AS  #4 
INPUT  «4,  Pdehans.cap.  MexCrks.tap 
CLOSE  #4 

OPEN  Flla$  FOR  INPUT  AS  *3 
FCMl  I  -  0  TO  10000 
Raadflla:  INPUT  #3,  X$ 

IF  (FllaEnd  -  1)  THEN  EXIT  FOR 
NEXT  I 

Raadflla2:  OPEN  Flla$  FOR  INPUT  AS  #3 
FOR  kk  -  0  TO  1  •  2 
INPUT  #3,  A$ 

NEXT  kk 

FOR  J  «  1  TO  Fdehans.cap 
INPUT  «3,  Xt 
•PRINT  -POs  *,  X! 

NEXT  J 

FOR  K  -  1  TO  NaxCrks.tap 
INPUT  #3,  XI 
•PRINT  "Crks  •,  XI 
NEXT  K 

INPUT  #3,  CumcCyclal 
LastCyclel  CuxntCyclal 

LOCATE  10,  1:  PRINT  "Currant  Qrela  ",  CumtCyelat 
CLOSE  #3 
LOCATE  11,  1 

PRINT  "Enter  Current  Cycle  ;  ":  LOCATE  11,  25 

Cyele$  «  STR$(CumtCyclel) 

CALL  Taxtln2(^ele$,  10,  Exit. Code) 

CumtCyelel  -  VAL(^ele$) 

OPEN  Flle$  FOR  APPEND  AS  *3 
OPEN  Filered$  FOR  APPEND  AS  #4 

ELSE 

USTEN$  -  "TIBO  e2  P2  P8  GCG  L2  E-" 

FATE5  -  "P24  P8  U  FF  L2  D" 

PLAY  USTEN$  FATE$ 

LOCATE  4,  40:  PRINT  "Please  Type  (Y/N)" 

LOCATE  4,  27:  PRINT  " 

GOTO  F. Exist 
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END  IF 
END  IF 
ELSE 

OPEN  Flla$  FOR  OUTPUT  AS  *3 
OPEN  Fllara<l$  FOR  OUTPUT  AS  mU 
END  IF 
CLOSE  *3.  itU 

*  . Craaca  cast  paramacar  fila - -  — . 

* 

Fllapn$  -  Fllanama$  *  *.FRM* 

OPEN  Fllaprm$  FOR  OUTPUT  AS  #3 

PRINT  #3,  Pdchans  •*-  1;  "  ■;  MaxCrka 

PRINT  #3.  Snu]ibar$:  ■  ■;  Scypa$:  ■  •;  Wl:  ■  •;  B! 

PRINT  «3.  Scantamp$;  *  *;  DELI;  *  Pdsain! 

CLOSE  «3 


Neyclnc!  -  NeyelncAl  * 

AmpPhya!  -  (STamp!  /  2!)  *  VI  *  BI 
« 


CALL  gplb.aatup(3.  IS.  atatua)  *  InlcUllza  gplb. 

CALL  gplb.elaar (atatua)  *  claar  Intarfaea. 

•  » 

COLOR  7.  1 

GOSUB  taka. control  *  taka  eomputar  eontr 

ol. 

f 

$ 

GOSUB  Full.aealaa  '  raad  fullacala  valu 

aa 

Amp I  -  (AmpPhya I  *  Uni teont (Chan))  /  fullacala I (Chan)  '  convert  to  fraction 
of 

'  fullacala 

Haan!  -  AmpI  *  ((1|  -i-  R!)  /  (II  •  Rl)) 
fad  »  fullacala I (Chan)  /  Unltconl (Chan) 

PRINT  "Tha  Load  A^litude  (Iba)  la  *;  AmpI  *  fad 
PRINT  *Tha  Load  Naan  Laval  (lbs)  la  NaanI  *  fad 
q:  LOCATE  5,  1:  INPUT  "la  this  okay  (Y/N)  Ana$ 

IF  Ana$  -  *Y"  OR  Ana$  -  "j*  THEN  GOTO  C3 
IF  Ans$  -  *N”  OR  Ans$  -  ”n'  THEN  GOTO  Stop.taat 
GOTO  q: 

C3:  COLOR  7.  0:  CLS 
• 

♦aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa* 


Key. on:  KEY  ON 
KEY  1,  'Stop- 
KEY  2.  •Print" 
KEY  3,  "ACPD* 
KEY  5,  "Change" 
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KEY  8.  "End  Pg" 

KEY  10,  •  DOS" 

KEY(l)  OH:  KEY(2)  OH:  KEY(3)  OH:  KEY(5)  OH:  KEY(8>  OH:  KEY(IO)  OH 
OH  KEY(l)  GOSUB  Stopeyc 
OH  KEY(2)  GOSUB  Printer 
OH  KEY(3)  GOSUB  ACPD.iaadUt* 

OH  KEY(5)  GOSUB  RT. Chang* 

OH  KEY(8)  GOSUB  Step. cast 
OH  KEY(IO)  COSUB  Dos. shall 


CBd$  -  *0300, •  +  STR$(Ch*n) 

* 

rAT.T.  Cplb.cad(Cad$,  status)  '  Transfer  to  channel 

*  nuBd>cr  "Chan” 

Cad$  -  •C211,*  ♦  STR$(CumtCycl*!  *  4) 

CALL  Gplb.end(C«d$,  status)  '  Mt  total  cycle  cou 

nC 

‘  Current  Cycle 

CALL  Cplb.c«d(-C33,0".  status)  '  set  total  segment 

*  count  CO  zero 

9 

CALL  Setpoint (Chan,  Kean!,  status,  UnitconlO,  fullscalel ()) 

'  Force  nev  setpoint 

« 

Restart:  COLOR  7,  1 

LOCATE  1,  12:  PRIHT  "Test  aumary  and  Status";  "  Date  :  •;  DATE$;  •  Tin*  :" 
:  TZNE$ 

LOCATE  2.  1 

PRIHT  "Stress  Amplitude  :  ";  STampI;  "  Pel  ";  "  Stress  Ratio  :  ";  R! ; 

PRIHT  "  Test  Frequency  ;  ";  Freql;  "  Hz" 

LOCATE  3,  1 

PRIHT  "Crack  Length  Measurement  Interval  :  ";  Ncycinc!  /  4;  "  Cycles"; 

PRIHT  "  Data  File  :  ";  Flle$;  " 

LOCATE  4,  1;  PRIHT  "Last  Cycle  Measured  :  CumtCycle!;  " 

81 

LOCATE  4.  40 
IF  (Prcflg)  THEH 

PRIHT  "Printer  is  OH";  Sp$ 

ELSE 

PRIHT  "Printer  Is  OFF";  Sp$ 

EHD  IF 
COLCXt  7.  0 
KEY  1,  "Stop" 

KEY  2.  "Print" 

KEY  3,  "ACPD" 

KEY  5,  "Change" 

KEY  8.  "End  Pg" 

KEY  10,  "  DOS" 

KEY(l)  OH:  KEY(2)  OH:  KEY(3)  OH:  KEY(5)  OH:  KEY(8)  OH:  KEY(IO)  OH 
OH  KEY(l)  GOSUB  Scopeye 
OH  KEY(2)  COSUB  Printer 
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ON  KEY(3)  COSUB  ACPD.lMdUt* 

ON  KEY(5)  GOSUB  RT. Chans* 

(W  KEY(8)  GOSUB  Stop. test 
ON  KEY(IO)  COSUB  Oos.sh*!! 

GOSUB  Starceye 
DO 

Cml$  -  "Q212" 

CALL  Cplb.cad(Cad$.  atacus)  '  raquost  cyclic  star 

• 

CAIL  Gplb.rpt(rpc$,  10,  status)  '  raad  report 

stats  ->  VAL(rpt$) 

GOSUB  Cycl*. Count 
LOOP  UNTIL  stat*  -  4 

Cad$  -  *0219, O' 

CALL  Cplb.cBd(Cad$,  status) 

Cad$  -  'C212.0- 
CALL  Gpib.cBd(Cad$,  status) 
tor 

CALL  Cplb.cad(*C200,4*,  stattis) 

« 

GOSUB  ACPO 

t 

CALL  Cplb,cad(*C33,0' ,  status) 

0 

COLOR  7,  0:  CLS 
GOTO  Restart 
00 

LOOP  UNTIL  INKEY$  -  CKR$(27) 

« 

END 
0 

•»*»**»<*  *<»<***  t  ***>*** 


'  wait  for  tripped 
'  state  (cycles  dons) 
‘  Turn  constant 
'  Aaplltude  control 
•  off 

'  turn  off  cycle  coun 
‘  finnish  vavefora. 


'  set  total  segBsnt 
'  count  to  zero 


'  LOOP  Until  'ESC 

'  Is  pressed 


Full. scales: 

Unlts$(l)  -  Unlts$(2)  -  'N':  Unlts$(3)  - 
FOR  N  -  1  TO  3 

Cwl$  -  'Q308,*  *  STR$(N) 

CALL  Cplb.ead(OBd$,  status) 

CALL  Cpib.rpt(rpt$,  10,  status) 
fullscalsKN)  -  VAL(rpt$) 

'PRINT  'Channel  No  *;  N;  *  Fullscal*  :  ';  fullscalsKN);  '  ';  Unlts$(N) 
NEXT  N 
RETURN 


take. control: 

CALL  Gplb.ead('C909.1',  status)  '  request  control. 

CLS  *  display  Instruction 

s. 

PRINT  'Press  REMOTE  button  on  8500  consol*  to  taka' 

PRINT  'coaputer  control.' 

DO  '  wait  to  be  In  contr 
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ol. 

CALL  Cplb.ead(”Q909'' ,  atatua) 
ta. 

CALL  Cplb.rpc(rpc$,  10,  atatua)  • 

In. control  -  VAL(rpt$)  ' 

LOOP  UNTIL  In. control  •>  1  ' 

ol. 

CALL  Gplb.cad(*C904,0",  atatua)  ' 

CALL  Gpib.cad(*C23,l*.  atatua) 

CALL  Cplb.cBd(*C314,0*.  atatua)  * 

P- 

CALL  Gpib.cadCC913,0*,  atatua) 

RETURN 

« 

*»^HHHia*»»*****»***i***<Hfc****** ********»***********»»> 

9 

Return . control : 

CLS 

CALL  Cpib.cad(*C200,4*.  atatua) 

CALL  Gplb.cad("C909,0*,  atatiu) 

END 

RETURN 

# 

f 

Cycle. Count: 

DO 

CALL  Gpib.ead(*Q211* .  atatua) 

er 

Call  Gplb.rpt(rpt$.  10,  atatua) 

CumtCyclel  «  XNT<VAL(rpt$)  /  4) 

LOOP  UNTIL  CumtCyclel  >  0 
COLOR  7.  1:  LOCATE  7.  27 

PRINT  "Cycle  Nuaber  :  CumtCyclel;  *  COLOR 

RETURN 

ACPD.loediate:  CLS 

CALL  Cpib.cad("C200,4",  atatua)  ' 

Cad$  -  "CTW.O" 

CALL  Cplb.cad(Cad$,  atatua)  ' 

9 

Cad$  -  "C212.0" 

CALL  Cpib.cad(Cad$,  atatua)  • 

ter 

CALL  Gpib.cadCCTOO.A”,  status)  ' 

9 

GOSUB  ACPD 

9 

CALL  Gpib.cad("C33,0*.  status)  * 

•  t 

KEY  1,  "Stop- 
KEY  2,  -Print- 
KEY  3,  -ACPD- 
KEY  S,  -Change- 
KEY  8,  -End  Pg- 
KEY  10,  -  DOS- 


requeat  control  ata 

read  report, 
convert  atatua. 
valt  to  be  in  contr 

diaable  watch  dog. 
turn  actuator  on. 
react  emergency  a to 

diaable  GPIB  SRQ'a. 


'  finiah  vavefom. 
'  Return  control. 


’  Requeat  cycle  niad> 
'  Read  cycle  number 


7,  0 


finiah  waveform. 
Turn  constant 
Amplitude  control 
off 

turn  off  cycle  eoun 
finish  waveform. 


set  total  segment 
count  to  zero 
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KEY(l)  ON;  XEy(2)  ON:  KEY(3)  (W:  KEY(5)  CM:  KEY(8)  OH:  KEY(IO)  (W 

ON  KEYd)  COSUB  Stopeye 

ON  KEy(2)  COSUB  Princar 

ON  KEY(3)  COSUB  ACPD.lMdlata 

ON  KEy(S)  COSUB  RT. Change 

ON  KEY(8)  COSUB  Stop. Cast 

(W  KEY(IO)  GOSUB  Dos. shall 

COLOR  7.  0:  CIS 

GOTO  Restart 
* 

’sssstssssssssaaasaaaassasssssssass******************* 

» 

ACPD:  COLOR  7.  0:  CLS  :  COLOR  7.  1:  KEy(S)  OFF  *  Read  ACPD  £roB  C 

CMS 

CALL  Rasq>(Chan.  Aap!.  Tlaal)  '  Raap  to  BaxlsMB 

CALL  Gplb.ead("Q211” .  status)  *  Request  cycle  nua 

her 

CALL  Gplb.rpc(rpt$.  10.  status)  *  Read  cycle  nuaber 

LastCyclel  -  VAL(rpt$)  /  4 
StartACPO: 

LOCATE  1.  1:  PRINT  *ACPD  Readings  at  Cycle  Nuaber  LastCycla! 

IF  FQ$  -  "FMO"  THEN  GOTO  CETaepd 
LOCATE  20.  10:  PRINT  * 

■ 

LOCATE  20.  10:  PRINT  *SET  FUEC^CY  AT  1012;  ‘KHZ  AND  SET  CURRENT  TO 

ONE- 

LOCATE  21  18  *  FRZNT  *  * 

SETfq:  LOCATE  n.  20:  PRINT  -Press  Return  Vhen  Ready- 
DO 

LOOP  UNTIL  1NKEY$  -  CHR$(13) 

IF  FQ$  -  -FYES-  THEN 

LOCATE  21.  1:  PRINT  SFACE$(79):  LOCATE  21.  10;  PRINT  -PD  CAIN:  -; 

Max  -  3 

LOCATE  21,  20:  CALL  TextIn2(P4$.  Max.  Exit. Code) 

PdgainI  -  VAL(P4$) 

END  IF 
BEEP 

LOCATE  21.  1:  PRINT  SPACE$(79) 

CETaepd:  CALL  ACPD (Pdchans.  Aep^K),  DELI,  Scantype$.  Cmtehan!(),  Cmtpot 
!())  '  Read  ACPD' s 

Sp$  -  - 

Data$  -  •• 

FOR  1  ••  0  TO  Pdchans 
LOCATE  Z  2.  1 

Aepdreall(Z)  -  Aepdal(l)  /  (10!  (Pdgalnf  /  20))  *  lOOOOOOl 
PRINT  -Chan  #  ;  ■;  I  ♦  1;  •  ACPD  :  •;  Aepdreall(I);  ■  (u-Volts)- 
Data$  •  Data$  NlD$(STR$<Aepdreall(Z)}.  1.  10)  ■  * 

NEXT  1 

IP  FQ$  -  -PTES*  THEN  LOCATE  Pdchans  -i-  4.  1:  PRINT  ”  CURRENT  IREQ  K 
HZ*  "KHZ  * 

Rep:  LOCATE  20.  1:  PRINT  SPACE$(79):  LOCATE  22.  20 
TONE$  -  -L5S  CDEFABCDEPABCDEFAB- 

PLAY  TOME$  _ 

PRINT  -Repeat  aeasursaent  :  INPUT  Meas$ 

IF  Meas$  -  *Y-  OR  Heas$  -  -y-  THEN  LOCATE  22.  1:  PRINT  SPACE$(79):  COT 
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0  StartACPD 


IF  Msss$  -  *N-  OR  lteas$  -  "n*  THEN  LOCATE  22.  1:  PRINT  SPACE$(79):  GOT 
0  Pd.axlt 

GOTO  Rap 
Pd.axlt: 

IF  FQ$  -  "IHO"  THEN  GOTO  Crkvis 
IF  CSET  -  3  THEN  GOTO  SETstap 

LPRINT  "Cycle  Nu^ar  :  *;  CurntCyclel;  *  Stress  Aaplituda  :  ■; 

LFRINT  STsap!;  "  Stress  Ratio  :  *;  Rl ;  *  Currant  Fraq  :  KHZ 

LPRINT  "Pds 

FOR  1  -  0  TO  Pdehans 

LPRINT  TAB(10  +  10  *  I):  KIDS(STR$(Acpdraal! (I)) ,  1,  8); 

NEXT  1 

LPRINT  CHR$(13) 

SETstap: 

IF  CSET  -  1  THEN  KHZ  -  10:  Fllefq$  -  FllanaaaS  +  "A.PRN" 

IF  CSET  -  2  THEN  KHZ  -  30:  711afq$  -  FllanaaaS  ♦  "B.PRN" 

CSET  -  CSET  +  1:  IF  CSET  -  4  THEN  CSET  -  1:  GOTO  Crkvis 

OPEN  FllafqS  FOR  APPEND  AS  »3 

PRINT  #3.  Dates 

CLOSE  «3 

GOTO  StartACPD 

Crkvis:  CALL  CrkvlsuaKMaxCrks  •  I,  CrkvlsfO.  Pdehans}'  Enter  visual  era 
ek 

'  lengths 

FOR  1  -  0  TO  MaxCrks  •  1 

Dates  -  Dates  *  MIDS(STRS(Crkvls!(l)).  1.  10}  -t-  "  " 

NEXT  I 

DataS  -  DataS  +  STRS(CumtCycla!}  ♦  ■  "  -f  STR$(STaapl}  4  •  "4  STRS( 

RO 

CoaaantS  "" 

LOCATE  3  4  Pdehans.  2:  PRINT  *  Coaaants” 

LOCATE  3  4  Pdehans.  13:  CALL  Taxtln2(CoaBant$.  60,  Exit. Coda} 

OPEN  FlleradS  FOR  APPEND  AS  #3 
PRINT  #3.  DataS 
CLOSE  #3 

DataS  -  DataS  4  •  CoaaentS  4 

File. out:  LOCATE  22.  10:  Ans$  -  "Y" 

'  PRINT  "Save  data  to  disk  (Y/N}  *; 

'  INPUT  AnsS 

IF  AnsS  -  -y"  <»  AnsS  -  "Y"  THEN 
OPEN  Files  FOR  APPEND  AS  #3 
PRINT  #3.  DataS 
CLOSE  #3 
GOTO  Cont.ra^ 

ELSE 

IF  AnsS  -  "N"  (Nl  AnsS  -  "n*  THEN  GOTO  Cont.raap 
END  IF 

GOTO  File. out 


Cont.raap: 

IF  (Prtflg}  THEN 
'LPRINT  CHRS(27} 

LPRINT  "Cycle  Nuabar  :  ";  CumtCyela!;  " 
LPRINT  STaapI;  "  Stress  Ratio  :  *;  Rl;  " 


’  sand  data  to  printer 
*  sat  print  to  eondanead 
Stress  Aaplituda  :  "; 

Currant  Fraq  :  ";  KHZ 
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'LPRXirr  •  Tl»a  :  •;  TIMES 

LPRXNT  "Pda 

XF  FQS  -  "mS"  THEN  KHZ  -  3 
FOR  X  -  0  TO  Pdehans 

LPRXMT  TAB(10  4^  10  *  X) :  KXD$(STR$(Aepdr*ali (X)) .  1.  8); 

MEET  X 
LPRXMT  "  • 

LPRXMT  "Crk  :  •; 

FOR  X  -  0  TO  MaxCrka  •  1 

LPRXMT  TAB(10  4-  10  *  X);  MXl>$(STR$(Crlcvial(I)).  1.  8); 

MEET  X 
LPRXMT  •  " 

LPRXMT  CHR$(13):  LPRXNT  CHR$(13):  LPRXMT  CHR$(13) 

END  XF 

CALL  RaopCChan,  Ol  *  AapI,  TUm!)  *  Raap  to  Man  loval 

Cad$  -  *C219,1*  '  Turn  constant 

CALL  Cplb.cad(Oid$,  stattis)  '  Aaplltuda  control 

'  on 

CALL  Cyclaa(Chan.  FraqI.  Maanlavl ,  AapI,  Mcyclas!)'  Raatart  Function 

'  Canarator 

COLCA  7.  0 
KEy(S)  OH 
RETURN 


»aa4*aa<H>aas*asaasss**assass4Ss*ss«sssssssasssaass*ss« 


Startcyc : 


Ncyct  Ncyclncl  •  Al  *  (CumtCyclal  •  LastCyclal) 

CALL  Cyclas(Chan,  FraqI,  Maanlavl,  AapI,  Ncycl)  '  Start  cyclinf 

KEY  1,  "Stop" 

(W  EEY(l)  COSUB  Stopcyc 

§ 

RETURN 


Stopcyc : 

CALL  Gpib.ead("C200,A*,  status) 


CadS  -  "0219,0" 


CALL  Cpib.cad(CBd$,  status) 
CAUL  Cpib.cad(”C200,4",  status) 


'  finish  wavafora. 

'  Turn  constant 
'  Aaplltuda  control 
'  off 

*  finish  vcvafem. 


KEY  1,  "Start" 

ON  KEY(l)  GOSUB  Startcyc 

RETURN 

# 


Scop. tost: 
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CALL  Gplb.cadCC200.4*,  stacus) 


C«l$  -  "CIW.O" 

CALL  Cpib.ead(CBd8,  scatua) 


COSUB  Raturil. control 
RETURN 


SPparaaa : 

COUMl  7.  1:  LOCATE  1,  20 
PRINT  "SpaelMn  ParaMtara" 

LOCATE  3.  1:  PRINT  -Spaciaan  Width 

LOCATE  3.  35:  Max  -  10 

CALL  TaxcZn2(Tl$,  Max.  Exit. Coda) 

VI  -  VAL(T1$) 

LOCATE  5,  1:  PRINT  "Spaelaan  Thleknaaa  • 

LOCATE  5,  35 

CALL  Taxtln2(T2$.  Max,  Exit. Coda) 

Bf  -  VAL(T2$) 

LOCATE  7,  1:  PRINT  "Spaelaan  lypa  • 

LOCATE  7.  35:  Max  -  10 

CALL  TaxtIn2(Stypa$.  Max.  Exit. Coda) 

LOCATE  9,  1:  PRINT  'SpaelMn  Ntiabar  * 

LOCATE  9.  35:  Max  -  10 

CALL  TaxtIn2(Snuabar$.  Max,  Exit. Coda) 

FQln:  LOCATE  11.  1:  PRINT  "Multlpla  Currant  Fraquanclaa? 

LOCATE  11.  4A:  Max  -  1 

CALL  TaxtIn2(F8,  Max,  Exit. Coda) 

IF  F8  -  "Y"  <»  -  "y"  THEN  PQ8  -  •FTES":  KHZ  -  3:  CSET 

IF  F$  -  "N"  (»  F8  -  "n"  THEN  PQ$  -  •FNO";  KHZ  -  30:  GOTO 

GOTO  FQln 

Inl:  LOCATE  20.  1:  PRINT  "Contlnua  with  Edit  (Y/H)  •;  ; 

IF  Ana$  -  *Y”  OR  Ana$  -  *y”  THEN  GOTO  SPparaaa 

IF  Ana$  >  ”N"  (HI  Ana$  -  *n"  THEN  GOTO  Ptel 

LOCATE  20,  1:  PRINT  - 

LZSTEN$  -  "T180  e2  F2  P8  GGG  L2  E-* 

FATE$  -  *P24  P8  L8  FF  L2  0* 

PLAY  USTEN$  4  FATE$ 

GOTO  Inl 

Ftel:  COLI»  7,  0 

RETURN 


$ 


POparaaa: 

COLCA  7.  1:  LOCATE  1.  20 
PRINT  "ACPD  Paraaatara" 

LOCATE  3.  1:  PRINT  "Nuabar  of  Chaanala 
LOCATE  3,  35:  Max  -  5 
CALL  ToxtIn2(Pl$.  Max,  Exit. Coda) 
Pdehana  -  INT(VAL(P1$))  •  1 


’  flnlah  vavafora 

'  Turn  conatant 
'  Aaplltuda  contr 

'  off 


(Y/N)  • 

-  1:  GOTO  Inl 
Inl 

INPUT  Aaa$ 
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IDCKIZ  S.  1:  PUHT  "OumiMl  Delay  TIm 
LOCATE  5.  3S 

CALL  TaxcIn2(P2$.  Max,  Exit. Coda) 

DELI  -  VAL(P2$) 

Seantypa$  -  *C0S" 

LOCATE  7,  1:  PRINT  "ACPO  Cain  (DE) 

LOCATE  7.  35:  Max  -  S 

CALL  TaxtXn2(P4$.  Max.  Exit. Coda) 

Pdgaln!  -  VAL(P4$) 

LOCATE  9.  1:  niZMT  "Nuabar  Crack  Maasuraaanta  ” 

LOCATE  9.  35:  CALL  TaxtIn2(P5$,  5.  .Exit. Coda) 

MaxCrka  -  VAL(P5$) 

ln2:  LOCATE  17,  1:  PRINT  "Contlnua  with  Edit  (Y/N) 

IF  Ans$  -  •Y*  OR  Aiia$  -  "y*  THEM  COTO  PDparau 
IF  Aiia$  -  *M"  OR  Ana$  -  "n*  THEM  COTO  Fa2 
LOCATE  17.  1:  PRINT  • 

USTEN$  -  "TISO  o2  P2  PS  CCG  L2  E-* 

FATE$  -  *P24  PS  U  FF  L2  D* 

PLAY  USTEM$  *»-  FATE$ 

COTO  Xn2 
Fk2: 

XF  Seantypa$  -  "CUS*  THEN  COSUB  Cuatoa 

COLOR  7.  0 

RETURN 

S 

$ 

RTparaas: 

COLOR  7.  1:  LOCATE  1.  20 
PRXNT  *8500  Control  ParaMtara* 

LOCATE  3.  1:  PRXNT  "Strasa  A^>lltuda  (Pal)  * 

LOCATE  3.  35:  Max  «  10 

CALL  TaxtXn2(Rl$.  Max.  Exit. Coda) 

STa^il  -  VAL(R1$) 

LOCATE  5,  1:  PRINT  "Straaa  Ratio 
LOCATE  5,  35 

CALL  TextXn2(R25.  Max.  Exit. Coda) 

Rf  -  VAL(R2$} 

LOCATE  7,  1:  PRXNT  *Taat  Fraquaney  (Hz)  * 

LOCATE  7.  35:  Max  -  10 

CALL  TaxtXn2(R35.  Max,  Exit.Coda) 

Fraql  -  VAL(R3$) 

LOCATE  9.  1:  PRINT  "Nuabar  of  Cyelaa 

LOCATE  9,  35:  Max  -  10 

CALL  ToxtXn2(R4$,  Max.  Exit.Coda) 

NeyclncAl  -  VAL(R4$) 

LOCATE  11.  1:  PRXNT  -Data  Flla  NaM 
LOCATE  11.  35 

CALL  TaxtXn2(FllanaM$.  Max.  Exit.Coda) 

Xn3:  LOCATE  17,  1:  PRXNT  -Contlnua  with  Edit  (Y/N)  *; 

XF  Ana$  -  *Y”  OR  Ana$  -  *y*  THEN  COTO  RTparaM 
XF  Anx$  -  *N*  OR  Ana$  -  *n*  THEN  GOTO  Fb3 
LOCATE  17,  1:  PRXNT  * 

USTEN$  -  ”T180  02  P2  PS  CGC  L2  E-* 

FATE$  -  *P24  PS  L8  FF  L2  D” 


:  XNPUT  Anx$ 


XNPUT  Ana$ 
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FlAY  USTEN$  -t-  FATE8 

GOTO  Xn3 

Fkl:  COLOR  7,  0 

RZTORH 

f 


RT.Changa: 
CLS  : 


of 


COSUB  Stopeye 
GOSUB  RT.CHparaM 
Heycinel  >  NeyeincAl  *  41 
A^>?hyt!  -  (STaapI  /  2)  *  VI  *  Bl 

AapI  -  (Aap^yal  *  Unitconl  (Chan))  /  fullscala  I  (Chan) 

*  convart  to  fraction 


Maan!  -  AapI  *  ((II  *  R!)  /  (ll  -  Rl)) 


'  fullscala 


CLS 

COUNt  7.  1 

LOCATE  1,  12:  PRIMT  "Tast  suaaary  and  Status*;  *  Data  :  *;  DATES;  *  Tina  :* 
:  TIMES 
LOCAn  2.  1 

PRINT  *Straas  Aaplltuda  :  •;  STaapI;  •  Pal  •;  •  Strass  Ratio  :  •;  Rl ; 

PRINT  *  Tost  Fraquaney  :  *;  FraqI;  *  Hz” 

LOCATE  3,  1 

PRINT  "Crack  Lsngth  Naasuraaant  Interval  :  *;  Ncycinel  /  4;  *  Cycles*; 

PRINT  *  Data  Fila  :  *;  Fila$ 

LOCATE  4,  30 
ZF  (Prtflc)  THEN 

PRINT  "Printer  is  (»* 

ELSE 

PRINT  "Printer  is  OFF* 

END  ZF 
COLOR  7.  0 
KEY  1.  "Stop" 

KEY  2.  "Print" 

KEY  3.  "ACPD" 

KEY  5.  "Change" 

KEY  8.  "End  Pf" 

KEY  10.  "  DOS" 

KEY(l)  ON:  KEY(2)  OH:  KEY(3)  OH:  KEy(5)  OH:  KEY(8)  OH:  KEY(10>  ON 

OR  KEY(l)  GOSUB  Stopeye 

ON  KEy(2)  GOSUB  Printer 

OH  KEY(3)  GOSUB  ACPD.iaadiaCa 

ON  KEY(5)  GOSUB  RT. Change 

ON  KEY(8)  COSUB  Stop. test 

ON  KEY(IO)  COSUB  Dos. shell 
• 


CALL  Setpoint (Chan,  NaanI,  status,  Unitconl (),  ftillsealal ()) 
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'  Fore*  MW  satpoint 

COSUB  Scarccye 

REIUBII 

* 


RT.CHparaas: 

COLMt  7.  1:  LOCATE  1,  20 
FRUIT  *8500  Control  ParaMtars* 

LOCATE  3,  1:  PRINT  "Seraaa  Aaplicuda  (Pal)  * 

LOCATE  3.  35:  Max  -  10 

CALL  Taxtln2(Rl$.  Max.  Exit. Coda) 

STanpl  -  VAL(R1$) 

IP  STaapI  >  20000  THEM  GOTO  RT.Otparau 
LOCATE  5,  1:  PRINT  "Serasa  Ratio 
LOCATE  5.  35 

CALL  Taxtln2(R2$.  Max.  Exit. Coda) 

Rt  -  VAL(R2$) 

LOCATE  7.  l:  PRINT  "Taat  Fraquaney  <Mx) 

LOCATE  7.  35:  Max  -  10 

CALL  TaxtIn2(R3$.  Max.  Exit. Coda) 

FraqI  -  VAL(R3$) 

LOCATE  9.  1:  PRINT  "Nunbar  of  Cyclaa 

LOCATE  9.  35:  Max  -  10 

CALL  Taxtln2(R4$.  Max.  Exit. Coda) 

NeyelncAl  -  VAL(R4$) 

In5:  LOCATE  17,  1:  PRINT  'Contlnua  wldi  Edit  (Y/N) 
IP  Ans$  -  "Y*  W  Ana$  -  "y"  THEN  GOTO  RT.CHparam 
IF  Ans$  -  "N*  OR  Ans$  -  'n*  THEN  GOTO  PW 
LOCATE  17,  1:  PRINT  * 

LISTENS  ->  *T180  o2  F2  F8  GGC  L2  E«* 

FATE8  -  *P24  P8  U  FF  L2  D* 

PLAY  USTEN$  4  FATE$ 

GOTO  In5 

fU:  COLOR  7.  0 

RETURN 


;  INPUT  Ana$ 


Prlntar: 

IF  (Prtflg)  THEN 


turn  prl'^tar  on  or  off 
prlntar  la  exirrantly  o 


n 

Prtflg  -  0 
f 

COLOR  7,  1:  LOCATE  4.  40: 

ELSr 

ff 

Prtflg  -  1 

COLOR  7.  1:  LOCATE  4,  40: 
END  IF 

RETURN 

8 


'  aat  prlntar  flag  to  of 

PRINT  'Prlntar  la  OFF*:  COLOR  7.  0 

'  print#"  la  currantly  o 


'  aat  prLSitar  flag  to  on 
PRINT  'Prlntar  la  ON  *:  COLOR  7,  0 


Cuatoa: 
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count  7,  0:  cut 

1 

DIMV$(30),  V$(30).  CUIt$(60).  POT$(60) 

OPEN  ■CUSTOH.OAT*  FUt  INPUT  AS  WS 
fXMlJ  -  0  TO  39 
INPUT  WS,  CUIt$(J) 

NEXT  J 
CLOSE  #5 

FOR  J  -  0  TO  Pdchans 
CrntehanKJ)  -  VAL(CUR$(J)) 

U$(J)  -  LTRIH$(ST&$(Crntehani(J)  -f.l)) 

NEXT  J 

FOR  J  -  0  TO  Pdehana 
J1  ->  J  -I-  30 

Crntpotl(J)  -  VAL(CUR$(J1)) 

V$(J)  -  LTRIM$(STR$(Cmtpot!(J)  -i-  1)> 

NEXT  J 
CUSl: 

LOCATE  1.  30:  PRINT  "Cuscom  Sc«n  Cyel*" 

FOR  J  -  0  TO  Pdehaiu 
LOCATE  3  J.  1 

PRINT  -READING-;  J  +  1;  -:-:  LOCATE  3  ♦  J,  14:  PRINT  -POTENTIAL  -  - 

LOCATE  3  J.  26:  M«x  -  2 

CALL  TnCln2(V$(J).  Max.  Exit. Coda) 

Crntpotl(J)  -  (VAL(V$(J))  -  1) 

LOCATE  3  J.  32:  PRINT  -CURRENT  -  - 

locate  3  4  j.  42:  Max  -  2 

CALL  TAXtln2(V$(J),  Max,  Exit.Coda) 

CrntchAnl(J)  -  (VAL(V$(J))  •  1) 

NEXT  J 

InlO:  LOCATE  PdehAiiA  -f  4,  1:  PRINT  -Continua  with  Edit  (Y/N)  -;  :  INPUT  An 

•5 

IF  Ans$  -  -Y-  OR  Ans$  -  -y-  THEM  GOTO  CUSl 
IF  Aiu$  -  -N-  nt  Aiuit  -  -n-  THEN  GOTO  FM.0 
LOCATE  17,  1:  PRINT  - 

USTEN$  -  -Tito  e2  F2  Ft  GGG  U  E-- 
FATE$  -  -P24  P8  L8  FF  U  D- 
PLAY  L1STEN$  -f  FATE$ 

GOTO  InlO 

FUO: 

FOR  J  -  0  TO  29 

CUR$(J)  -  STR$(CrntehAnl(J)) 

NEXT  J 

FOR  J  -  0  TO  29 
J1  -  J  4  30 

CUR$(J1)  -  STR$(Crntpotl(J)) 

NEXT  J 

OPEN  -CUSTOM.DAT-  FHt  OUTPUT  AS  #5 
Fnt  J  -  0  TO  59 
PRINT  #3,  C0R$(J) 

NEXT  J 

CLOSE  »5:  COUnt  7,  0 
RETURN 

f 


A-16 


ACPDCYCS.BAS  Tu«id«y.  0«e«^r  IS,  1990  9:18  aa 


Dos. shall: 

COSUB  Scopeye 

CLS 

SHELL 

CLS 

COLOR  7.  1 

LOCATE  1,  12:  PRINT  "Tast  Suaasry  and  Status  *;  *  Data  :  DATES;  *  Tine 

TIMES 

LOCATE  2,  1 

PRINT  "Stress  Anplltuda  :  STai^l;  *  Psl  *;  *  Stress  Ratio  :  ■;  R1 ; 

PRINT  *  Tast  Frequency  :  Freql;  "  Hx" 

LOCATE  3.  1 

PRINT  "Crack  Length  Maasurenent  Interval  :  ";  Neyelncl  /A;  "  Cycles*; 
PRINT  *  Data  File  :  *;  FlleS 
LOCATE  4.  30 
IF  (Prtflg)  THEN 

PRINT  "Printer  Is  CM* 

ELSE 

PRINT  "Printer  Is  OFF* 

END  IF 
COLOR  7,  0 
KEY  1.  "Stop* 

KEY  2,  "Print" 

KEY  3,  "ACPO* 

KEY  S.  "Change* 

KEY  8.  "End  Pg* 

KEY  10,  "  DOS" 

COSUB  Starteyc 

RETURN 

CheekError: 

IF  ERR  -  62  THEN 
FileEnd  -  1 
CLOSE  #3 
RESUME  NEXT 
ELSE 

ON  ERROR  COTO  0 
END  IF 

END 

SUB  ACPD  (Pdehans,  Acpdsl(),  DELI,  SeantypeS,  CmtchanlO,  CmtpotIO) 

IF  SeantypeS  -  "(M-S*  THEN 

S$  -  "M" 

ELSE 

S$  -  SeantypeS 
END  IF 

CH!  -  0:  MAXCH  -  Pdehans 

♦ 

'  ***  Setup  LPT2:  for  eontrol  of  seanner  *** 

* 

OPEN  *lpt2:*  FOR  OUTPUT  AS  »2 
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REM  OPEN  -CONEtSOO.N.E.a.CSlOOO.DS.CO-  FOR  RAMDOM  AS  m2 
FOR  X  -  0  TO  MAXCH 

PRINT  m2,  *C”:  CrntehanI (CHI )  'Switch  to  proper  currant  channal 
T1ME$  -  *00:00:00*: 

Tial: 

IF  (TIMER  •  II  <  0)  THEN  GOTO  Tial 

PRINT  *2,  "S*;  Cmtpotl(CHI)  'Switch  to  proper  potential  chaimal 
TXNE$  -  •00:00:00”: 

TU: 

IF  (TIMER  -  DELI  <  0)  THEN  GOTO  Tia 
•  ♦ 

•  ***  Setup  COM2:  for  roadins  woltagea  froa  CGM5  *** 

* 

OPEN  •C0H2:9600.N.8.1.CS.DS.CD-  Ft»  RAMDOM  AS  #1 
Cga.init:  A$  -  INP0T$(1.  *1):  Bl  -  ASC(A$) 

Dl  -  Bl  AMD  13:  IF  01  O  0  THEN  GOTO  C^.init 

POLI  -  Bl  AMD  32:  DPI  -  Bl  AND  64:  ORRI  -  Bl  AND  128:  Bl  -  (Bl  AMD  16)  /  16 
:  DPM$  -  CHR$(48  Bl) 

FOR  NPM  -  1  TO  4 

A$  -  lNPirr$(l.  #1):  Bl  -  ASC(A$) 

DPM$  -  0PM$  *  CHR$(48  *  (Bl  AND  240)  /  16) 

NEXT  NPM 

IF  ORRI  -  1  THEN  DPM$  -  "99999*:  GOTO  Cg^.value 
IF  POLI  <  1  THEN  DPM$  -  *  0FM$: 

ELSE  DPM$  •  *  DPM$ 

IF  DPI  >  0  THEN  0PM$  -  LEFT$(DPM$.  3)  4^  ”.•  -f  NID$(DPN$,  4.  10) 

IF  DPI  -  0  THEM  0PM$  -  LEFr$(0PM$.  2)  4  •.•  4  NXD$(0PM8.  3.  10) 

Cga. value:  Aepdsl(X)  «  VAL(DPM$) 

CLOSE  #1 

CHI  •>  CHI  4  1  '  Inereaant  Channel  Nuaber 

NEXT  1 
CHI  -  01 

PRINT  *2.  "M":  CHI 
CLOSE  #2 
END  SUB 

SUB  Crkvisual  (N.  Crkl(),  Fdchans) 

DIM  Crktap$(8) 

Sp$  -  • 

Method$  -  "Auto* 

SELECT  CASE  Method$ 

CASE  •Manual” 

Nan.  input: 

FOR  X  -  0  TO  N 

LOCATE  1  4  9.  10 

PRINT  ”Enter  Crack  Length  at  Location  Nuaber  •;  1  4  1;  •  :  ”; 

LOCATE  X  4  9.  60 

CALL  TextXn2(CrktBp$(X),  10,  Exit. Code) 

Crkl(X)  -  VAL(Crktap$(I)) 

NEXT  X 
Crk. input: 

LOCATE  20.  10 

PRINT  •Continue  with  edit  (Y/N) 

INPUT  Ans$ 
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IF  Ans8  -  *Y"  OR  Ans$  -  -y-  THEN  GOTO  Kao. input 
IF  Ans$  -  "N*  OR  Ans8  -  'n*  THEN  GOTO  CrR.axiC 
GOTO  Crk. input 
CASE  ’Auto" 

'  *  * 

•  ***  Coda  For  RS232  Input  Froa  Quastaz  ****** 

•  *  * 

RS232.r*ad: 

OPEN  "COH1:9600,N, 8, 1,08,08,00-  F(»  RANOON  AS  *1 

PRINT  •!,  -G90*  *  Sat  to  abalouta  aoda 

PRINT  »1,  -G70-  ’  Sat  to  anglish  units 

INPUT  •!,  A$  *  Road  status  fron  -090- 

FOR  1  -  0  TO  N  STEP  2 

LOCATE  20,  1:  PRINT  Sp$:  LOCATE  20,  1 

PRINT  -Maasuraaant  nus^ar  *;  X  1;  *  aova  stags  to  saro  location  and  p 
rass  ratum  - 

LOCATE  20,  70:  CALL  TaxtIn2(Z$,  1,  Exit. Coda) 

GOSUB  zaro:  BEEP 
FOR  J  -  0  TO  1 

LOCATE  20.  1:  PRINT  Sp$:  LOCATE  20,  1 

PRINT  -Maasuraaant  nua^r  -;  J  *  X  *  1;  -  aova  stags  to  crack  tip  an 
d  prass  ratum  - 

LOCATE  20.  70:  CALL  TaxtIn2(Z$.  1,  Exit. Coda) 

GOSUB  Raadxy:  BEEP 
LOCATE  I  *  J  *  1,  53 

PRINT  -Crack  -;  I  ♦  J  +  1;  -:  -;  ABS(VAL(Ydata$)) ' ;  -  -;  ABS(VAL( 

Xdaca8)) 

Crkld  *  J)  -  ABS(VAL(Ydaca$)) 

NEXT  J 
NEXT  I 
CLOSE  «1 

Question:  LOCATE  20,  1:  PRINT  Sp$ 

LOCATE  22,  1:  PRINT  SPACE$(79):  LOCATE  22.  20 
PRINT  -Rspaat  aaasuraaant  -;  :  INPUT  Maas$ 

IF  Naas$  -  -Y-  OR  Naas$  -  -y-  THEN  LOCATE  22.  I:  PRINT  SPACE$(79):  GOTO  RS2 
32. road 

IF  Maas$  -  -N-  OR  Noas$  -  -n-  THEN  LOCATE  22,  1:  PRINT  SPACE$(79):  GOTO  Crk 
.axit 

GOTO  Question 
END  SELECT 
GOTO  Crk. exit 

zero:  '  Zaro  Z.Y  axis 

PRINT  #1,  -CA- 

RETURN  '  Read  X.Y  Position 

Raadbqr: 

PRINT  #1,  -DA- 
INPUT  »1.  Ans$ 

Slgnx$  -  MlD$(Ans$,  2,  1):  Xvalua$  -  HlD$(Aas$,  4,  7) 

Xdata$  -  Sig»($  *  Xvaiua$ 

SignY$  -  HZD$(Ana$.  13.  1):  Yvalua$  -  NZD$(Ana$.  15,  7) 

Ydata$  -  SignY$  *  YValua$ 

RETURN 
Crk. exit: 

END  SUB 
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SUB  Cyelas  (Chan,  FraqI,  Maanlavl ,  AapI,  Ncyelas!) 


Setup  vavefon.  Frequency  "Freq*  Aaplltude  at  "Aap  %"  of  full  scale, 
using  stroke  node  of  control  and  the  current 
starting  level.  The  8S00  will  cycle  indefinately 
until  the  ESC  key  ia  preaaad. 


Cbk1$  -  ■C201,"  +  STll$(Chan)  +  ".O* 

CALL  Gpib.caKl(CBd$,  statxis) 

Cma$  -  -C202,-  +  STR$(Chan)  +  ♦  STR$(Freq!) 

CALL  Gpib.cad(CBd$,  atatus) 

CKi8  -  ■C203,-  +  STR$(Chan)  +  ♦  STR$(Aq>l) 

CALL  Cpib.cad(CBd$,  status) 

! 

Cad$  -  ■C212,0* 

CALL  Gpib.ead(Cad$,  status) 

Cad$  -  "C209,”  -f  STR$ (Ncycles ! ) 

CALL  Gpib.cad(Cad$,  status) 

Cad$  -  '‘C213,3- 

CALL  (;pib.cad(Cad$,  status) 

n« 

Cad$  -  •C214,0* 

CALL  Cpib.cad(Cad$,  status) 

Cad$  -  "C212.2’ 

CALL  Cpib.ead(Cad$,  status) 

CALL  Cpib.cad(”C200,l*,  status) 

Cad$  •>  ”C219,1" 

CAIL  Cpib.cad(Cad$,  status) 

END  SUB 


'  sine  veve  type 
'  on  channel  Chan 

'  set  frequency  to 
*  Freq I (Hz). 

'set  eaplitude  to  Aap 


'cycle  coaparator  off 
'aet  #  of  cycles 
'hold  at  end  of  cycli 


'no  data  logging 

'  Ara  cycle  counter 
'  start  vavefora. 

'  Turn  constant 
'  Aaplitude  control 
'  on 


SUB  Raap  (Chan,  AapI,  Tiael) 
state  -  1 

CALL  Cpib.ead("C200,4*,  status) 

Cad$  -  ■C2,"  ♦  STR$(Chan)  -f  •,0- 
CAIL  Cpib.ead(Cad$,  status) 
aap 

Cad$  -  "CA."  *  STR$(Chan)  *  *.*  *  STR$(ABpl) 

CALL  Cpib.ead(Cad$,  status) 
ude 

Cad$  -  "C6,”  *  STR$(Chan)  *  STR$(ABS(Aapl  /  Tiael)) 
CALL  Gpib.ead(Cad$,  status) 

Cad$  -  •Cl.l'' 

DO 

CALL  Cpib.ead(Cad$,  stas) 

Cad$  -  "Ql,* 

CALL  Gpib.rpt(rpt$,  10,  status) 
state  -  VAL(rpt$) 

LOOP  UNTIL  state  -  0 
END  SUB 


'  finish  vavefora 
'  Set  to  single  r 
•  Set  raap  aapllt 
'  Sat  raap  rate 
'  Start  raap 
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ACPDCYC9.fiAS 


Tuesday ,  Oaca^ar  18.  1990  9:18  aa 


SUB  Sacpolnt  (Chan,  Naan  I ,  scacus,  UniteonlO,  fullseala  I  ( ) ) 

Haanraalt  -  (HaanI  *  fullseala! (Chan))  /  Unltconl(Chan) 

Cmd$  -  "Cl.*  *  STR$(Chan)  +  +  STK$(Naanl) 

CALL  Cplb.cBd(Caid$,  status)  *  Sat  satpoint  to  naw  valu 


Raadval : 

Cwl$  -  -CllA.-  +  STR$(Chan)  ♦  -.7.1- 


'  nav  value  is  'Mean!* 

'  Sat  single  point  read  of 
’  feedback 


CALL  Cplb.ead(Cad8,  status) 

Cwl$  -  -QUA,-  +  STR$(Chan)  +  %0- 

CALL  Gplb.ead(Cad$,  stattis)  *  Read  feedback  value 

CALL  Gpib.rpt(rpc$.  10,  status) 

Value!  -  (VAL(rpt$)  *  fullseala! (Chan))  /  Unlteon! (Chan) 

'  PRINT  "Satpoint  ,  Feedback  is  *;  Maanraal!,  Value! 

IF  (ABS( (Maanraal!  •  Value!)  /  Maanraal!)  <  .01)  THEN 
GOTO  Exit. sub 
ELSE 

GOTO  Raadval 


END  IF 

Exit. sub:  'PRINT  "Satpoint  reached" 
END  SUB 
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&PPSNDZX  B 

TEST  8PBCZ1CEN  DRMflNOS 
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ALHM  SPECIFICATIONS 


lOkHz 


ALH1-2  SPECIFICATIONS 


to  kHz 
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lOkHs 


ALH1-4  SPECIFICATIONS 


lOkHt 


ALH1-5  SPECIFICATIONS 


Cuntnt  Fr«qu«nqf  ■  10  kHx 


7  SPECIFICATIONS 


ALH1-8  SPECIFICATIONS 
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T*8t  Sampte 
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ALR3-5  SPECIFICATIONS 
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3,10,30  kHi 
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9, 10,30  kHz 


ALR3-8  SPECIFICATIONS 


TMtSampto 
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TMiSanpto 


ALR3-10  SPECIFICATIONS 


TMtSampI* 


APPEHDXZ  C 


DBRZVZTXOM  OP  CRXCX  LIKGTH  POTDiTXAL 
DROP  RXTXOH  BQUATXOH 
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The  crack  length  can  be  calculated  from  the  ratio  of  the 
potential  neasured  around  the  cracked  section,  P<^act' 
potential  neasured  at  a  reference  location  below  the  hole, 

Let  the  active  and  reference  leads  be  a  distance  of  A  apart. 

The  distance  the  active  potential  lead  is  placed  from  the  edge  of 
the  hole  is  The  crack  length  is  calculated  from  the 

following  equation. 


The  derivation  of  this  equation  is  given  below.  Refer  to  Figure 
Cl  for  the  geometry  and  symbols  used. 


Diagram  of  Potential  Lead  Attachment  Locations 


Potential  Lead 


FIGURE  Cl.  GEOMETRY  OF  FOTEMTIAL  PROBE  PLACEMEMT  MID  SYMBOL 
DEFINITION 
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In  these  experiments  D  -  A.  Therefore  the  eqpiation  for  8 
reduces  to 


Rearranging  gives 

-  "  - 1  [1-1^]] 

The  total  length  the  current  flows  is  Arc  AC  +  2a. 


The  electrical  field  is  arranged  to  be  uniform  in  the  region  of 
interest.  The  potential  difference,  Pd_f,  is  proportional  to 
the  prolae  length  A.  The  potential  difference,  Pd^-^,  includes 
the  probe  length.  Arc  AC,  plus  twice  the  cracX  length,  2a.  The 
following  equation  holds: 


A  ”  i4rcAC+2-o 
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Substituting  in  values  for  this  equation  gives: 


^  A4;-Sin’‘|i^]l+2  a 

*  •  L  A 


rearranging  gives: 


+  2  *0 


Solving  for  2a: 


Rearranging  this  equation  gives 
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